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SECTION I 
INTRODUCTION 



1-1 SCOPE OF SPECIFICATION 

This specification contains the information required to write and execute Harris 
FORTRAN programs. Also included are the requirements for interfacing FORTRAN and Harris 
assembly language programs. 

The material in this document is presented on a level that assumes the reader has previous 
experience with the FORTRAN language. 

1-2 GENERAL DESCRIPTION 

The Harris FORTRAN system consists of a compiler and a FORTRAN library. The 
computer translates FORTRAN programs and subprograms into relocatable modules. Compiler- 
generated modules are accepted by the Harris Link Loader and can be externally linked with 
FORTRAN or assembly language programs and subsequently executed. The FORTRAN library 
is a set of subroutines, coded in assembly language, that provides: (a) all functions whose calls 
are generated by the compiler; (b) run-tirne diagnostic messages; and (c) a set of mathematical 
routines that includes USA standard FORTRAN functions as a subset. The entire FORTRAN 
system operates within all the Harris Operating Systems. 

1 -3 COMPILER ASSEMBLY OPTIONS 

The Compiler Assembly options consist of the following: 

1. Basic Compiler (Assembled with FLAG 03 on) - Uses approximately 4OOO3 words 
of core less than the extended compiler. 

2. Extended Compiler (FLAG 03 off). Has the following additional features: 

a. Random Access I/O. 

b. The extended listing prints generated Mnemonics as well as octal code. 

c. $OPTIONS 4 treats Real numbers as double precision. 

d. Compile time errors print a message as well as a number. 

e. NAME statement available, 

f. RECUR statement available. 

g. RETURN n. 

h. Buffer In/Buffer Out. 
i. IMPLICIT statement, 

j. In -Line Assembly Code. 
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k. FORTRAN II I/O 
I. Multiple Entry Points 
m. Output TRIAD Option 

3. DO option (FLAG set) - the range of the DO loop will always be executed 
at lease once, even if conditions for termination are met initially. 

4. SAU (FLAG 5 set) - for use on all machines with floating-point hardware. 

5. VULCAN Compiler (FLAG 04 off). Must be used with VULCAN operating systems 

6. DMS/DOS/TOS/ROS Compiler (FLAG 04 on). Must be used on DMS, DOS, TOS 
and ROS operating systems. 

17. Structured-FORTRAN Compiler (FLAG 06 on) - Processes structured programming 
statements in addition to normal FORTRAN statements. This extension is available 
in the Basic Compiler as well as the Extended Compiler. 

1-4 EXTENSIONS 

The Harris Compiler meets the requirements of the ANSI X3. 9 specification and has 
several extensions. 

Random Access I/O* 

Buffer In/Buffer Out* 

Encode/Decode 

Free Format I/O 

FORTRAN II I/O 

IMPLICIT Statement* 

ENTRY Statement* 

Recursion Statement* 

Multiple RETURN definition* 

NAME Statement* 

Octal Constants 

Mixed Mode Arithmetic 

SHIFT Operator 

ROTATE Operator 

Exclusive OR Operator 

Tab Specification 

In -Line Assembly Code* 

* Extended Compiler Only. 
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In -Line Control Statements* 

Conditional -Compilation of blocks of Statements' 
Conditional -Compilation of Debug Statements* 
Structured programming Statements** 
Automatic Identation of Structured programs** 



* Extended Compiler Only. 
**Structured FORTRAN Compiler only. 
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SECTION II 
HARRIS FORTRAN LANGUAGE 



2-1 GENERAL DESCRIPTION 

The Harris FORTRAN language is a super sef of USA Standard FORTRAN X3. 9 - 1966. 

2-2 FORTRAN PROGRAMS 

FORTRAN programs are comprised of an ordered set of statements that describe the 
procedure to be followed during execution of the program and the data to be processed by the 
program. Some data values to be processed may be external to the program and read into the 
computer during program execution. Similarly, data values generated by the program can be 
written out while processing continues. Statements are of one of two general classes: 

1. Executable statements, which perform computation, input/output operations, 
and program flow control. 

2. Nonexecutable statements, which provide information to the computer about 
storage assignments, data types, and program form, as well as providing infor- 
mation to the program during execution about input/output formats and data 
initialization. 

Statements defining a FORTRAN program follow a prescribed format. Figure 2-1 is 
a sample FORTRAN Coding Form. Each line on the form consist of 80 spaces or columns; 
however, the last eight columns are used onlv for identification or sequence nuVnbers and have 
no effect on the program. Columns 1 througn 72 are used for the statements. 

The first field, columns 1 through 5, is used for statement labels. Statement labels 
allow a statement to be referenced by other portions of the program. Labels are written as decimal 
integers, wifh all blanks (leading, embedded, or trailing) ignored. A more extensive discussion 
of statement labels is covered in Section 2-6. 

The body of each statement is written in columns 7 through 72, but if additional space 
is required, a statement may be continued on as many lines as necessary. Each continuation line 
must contain a character other than blank or zero in column 6. The initial line of each statement 
may contain only the characters blank or zero in column 6. If a statement is labeled, the label 
must appear on the initial line of the statement, labels appearing on continuation lines will 
generate a non -fatal error. 

Column 1 may contain the character C to indicate that the line is to be treated as a 
comment only, with no effect on the program. Comment lines may appear anywhere in the 
program. 
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Figure 2-1. FORTRAN Coding Sheet 
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2-2 FORTRAN PROGRAMS (CONT'D.) 



Stdt-ements may have blanks inserted as desired to improve readability, except within 
literal fields (e.g., in Hollerith constants and FORMAT statements). 

The set of characters acceptable to Harris f ORTRAN is: 

Letters: ABCDEFGHIJKLMNOPQRSTUVWXYZ 

Digits: 0123456789 

Special characters: +-*/=()• / $ ' blank " 

2-3 DATA 

Numerical quantities (constants and variables) as distinguished in FORTRAN are a means 
of identifying the nature of the numerical values encountered in a program. A constant is a 
quantity whose value is explicitly stated. For example, the integer 5 is represented as "5", the 
number pi , to three decimal places, as "3.142". A variable is a numerical quantity that is 
referenced by name rather than by its explicit appearances in a program statement. During the 
execution of the program, a variable may take on many values rather than being restricted to 
one. A variable is identified and referenced by an identifier. 

All data processed by the Harris FORTRAN program can be classed as one of six 
types; (1) integer, (2) real, (3) double-precision, (4) complex, (5) logical, and (6) literal. 

Limits on Values of Quantities 



Integer Data 

Integer data are precise representation of the range of integers from -8,388,608 to +8,388,607; 
that is, -2^^ to +2^3-1. Integer data may only be assigned integral values within this range. 

Real Data 



Real data (also called floating-point data) oan be assigned a goroxi motions of real 
numbers with magnitudes within the range of 2.94 x 10~39 to 1.7 x 10*^°. A real datum may 
acquire positive or negative values within the this range or the value zero. Real data hove an 
associated precision of 6+ significant digits. That is, the sixth most significant digit will be 
accurate, while the seventh will sometimes be accurate, depending on the value assigned to the 
datum. 

Double- Precis ion Data 



Double-precision data may approximate the identical set of values as real data. However, 
double-precision data have an associated precision of 1 1+ significant digits. 
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2-3 DATA (CONT'D.) 

Li mits on Values of Quantities (Cont'd.) 

Complex Data 

Complex data are approximations of complex numbers. These approximations take the 
form of an ordered pair of real data. The first of the two real data approximates the real part, 
and the second real datum approximates the imaginary part of the complex number. The values 
that may be assigned to each part are identical to the set of values for real data. 

Logical Data 

Logical data can acquire only the values "true" or "false". 

Li teral Data 

Literal data are character strings. Like logical data, literal data do not have numeric 
values. Any of the characters discussed under "Literal Constants" may appear in literal data. 

Constants 



Constants are data that do not vary in value and are referenced by naming their values. 
There are constants for each type of data. Numeric constante may be preceded by a "+" or "-". 
If not preceded by either of these, the constant is considered to be positive. 

Integer Constants 



Integer constants are represented by strings of digits. The magnitude of an integer 
constant must not exceed 8,388,607. 



Examples: 










382 


+997263 


100000 


000546 


-8 


+13 


1961 


3344224 


372436 





Octal Constants 











Octal constants are represented by a string of digits from the subset of digits 0, 1, 2, 3, 
4, 5, 6, 7 and preceded by an apostrophe ('). There must be no more than eight significant digits 
In a string. If less than eight digits appear, the octal constant specified is right justified in the 
24~bit word with leading zeros. An octal constant may be used interchangeably with an integer 
constant. 
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2-3 DATA (CONT'D.) 



Constants (Cont'd.) 



Examples: 






'77777777 


'0234 


'40005 


'10020040 


'10000 


'12345770 


Real Constants 







Real constants are represented by strings of digits with a decimal point and/or an exponent. 
The exponent follows the numeric value and consists of the letter E followed by a signed or unsigned 
integer ttiat represents the power of ten by which the numeric value is to be multiplied. Thus the 
following forms are permissible: 

n. m n. . m 

n.mEie n. E±e . mE±e nE±e 

where: n, m, and e are strings of digits, and the plus or minus sign preceding e is optional. 

For example, .567E5 has the meaning ,567 x 10 and can also be represented by any of 
the following equivalent forms: 



0. 567E+05 
567000E-1 



5.67E4 
567E02 



56700. 

56700. OOOE-00 



The value of a real constant may not exceed the limits for real data. As many digits as 
desired may be written in a real constant, but only 6+ most significant digits are retained. 

Since any real constant may be written in a variety of ways, the user can choose the form 
he prefers. 

Examples: 

5.0 7.6E+5 3.1415926535897 

0.01 6.62E-27 5878550402984.0 

Double Precision Constants 

Double-precision constants are formed exactly like real constants, except that the letter 
D is used preceding the exponent instead of E." To denote a constant specifically as douJDle- 
precision, the exponent must be present. Thus, a double-precision constant may be written in 
any of the following four forms: 



n. mD±e 



n. Die . mD±e 



nD±e 



^ where: n, m, and e are strings of digits, the plus or minus sign preceding e is optional, and 
D signifies a double-precision constant. 
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2-3 DATA (CONT'D.) 

Constants (Cont'd. ) 

Double Precision Constants (Cont'd.) 

The value of a double -precision constant may not exceed the limits for double -precision 
data. As many digits as desired may be written in a double-precision constant but only the 1 1+ 
most significant digits are retained. 

Complex Constants 

Complex constants are expressed as an ordered pair of constants in the form (ci,c2), whe 
ci and CO are signed or unsigned real constants. The complex constant (c],c2) is interpreted as 
meaning c] + c2i, where i = VTT Thus, the following complex constants have values as indicate 

(1.34.,52.01) = 1.34 + 52.01i 

(98344. ,0. 34452E+02) = 98344.0 + 34. 452i 

(-l.,-1000.) = -1.0 + -1000, Oi 

Neither part of a complex constant may exceed the value limits established for real 
data. 

Logical Constants 

Logical constants may assume either of two forms: 

.TRUE. .FALSE, 

These forms have the logical values "true" and "false", respectively. 

Literal Constants 



A literal constant takes one of the following forms; 

Hi_i 11-"' 

s s s 

where: 



s is a Hollerith string. Note that blanks are significant in Hollerith strings. If it is 
desired to use quotes (' or ") within either of the last two forms, the following technique should 
used. If the quote that is used to delimit the string is to be included in the string, then the quot. 
should be entered as two consecutive quotes: 

' " ' is equivalent to " ' " and """" is equivalent to "". 
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2-3 DATA (CONT'D.) 

Constants (Cont'd. ) 

Literal Constants (Cont'd. ) 

n is an unsigned integer specifying the number of characters in the string. Note that 
if this form is used, then quotes may be freely included within the string without additional care: 

IH' is equivalent to "" or ""' and 

IH" is equivalent to ' " ' or """" 

Literal constants may be used freely in place of integer or real constants. The mode of 
literal constants as determined by the first non-literal data which is associated with it. For 
example: 

1= IHA (literal is integer) 

X = J + 1H$. (literal is integer) 

I = 1H3+ '8' + 1.5 (literal is real) 

NOTE 

Except as arguments to subprograms and in DATA 
statements. Literal constants have a length limit- 
ation. The total effective length of a literal 
constant with a mode of integer is three. The 
total effective length for a "real" literal con- 
stant is six. 



Identifiers 

Identifiers are strings of letters and decimal digits used to name variables, subprograms 
and COMMON blocks. An identifier in Harris FORTRAN consists of one to six alphanumeric 
characters. The first of which must be a letter. 

Examples: 

X A345Q STRESS J3 BOYER 

Blank characters embedded in identifiers are ignored; therefore, BIG CAT and BIGCAT 
are identical. There are no restricted identifiers in Harris FORTRAN; however, for clarity, it 
is advisable not to use identifiers that correspond to Harris FORTRAN statement types (see 2-6 
CONTROL STATEMENTS). 
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2-3 DATA (CONT'D. ) 

C onstants (Cont'd. ) 

Identifiers (Cont'd. ) 

Identifiers having more than six characters are accepted but only the first six characters 
are used. In this case, a warning message is output so that the user may determine the uniqueness 
of all identifiers greater than six characters. Subsequent execution is not suppressed. 

Variables 



Variables are data whose values may vary during program execution and which are 
referenced with an identifier. Variables may be any of the data types. There is no such entity a 
a literal variable; any type of variable (except logical) may contain a literal string. 

If a variable has not been assigned to a particular data type (refer to "2-8 DECLARATIC 
STATEMENTS - Classification of Identifiers"), the following implicit typing conventions are 
assumed : 

1. Variables whose identifiers begin with letters I, J, K, L, M, or N are integer. 

2. Variables whose identifiers being with any other letter are real. 

Consequently, double-precision, complex, and logical variables must be explicitly de- 
clared as such (refer to Section 2-8, DECLARATION STATEMENTS - Explicit Type Statements). 
The values assigned to variables may not exceed the limits established for the applicable data types. 

NOTE 

This implicit typing may be modified through the 
use of the IMPLICIT statement (See Section 2-8). 

Scalars 

A scalar variable is a single datum entity and is accessed via an identifier of the 
appropriate type. 

Examples: 

Jl NAME SCALAR EQUATE E NEW DHO XXX8 

Arrays and Subscripts 

A variable may be made to represent a one, two, or three dimensional array by adding 
subscripts to the variable name. In FORTRAN, the variable name is followed by parentheses 
enclosing the subscripts which are separated by commas. The subscripts determine the element 
of the array to which reference is made. 

Every subscripted variable must have the array size declared in a DIMENSION, 
COMMON or Type statement. 

Examples of array element references are: 

A(l) 

VECTOR (M) 

B (2*1+5, 3* J -2) 

C (4* INT) 

YELLOW (I, J, K) 
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2-3 DATA (CONT'D.) 

Arrays and Subscript's (Cont'd. ) 

A subscript may be any arbitrary expression whose final mode is real or integer. If the 
mode is real, the value is converted to integer (the fractional part is not rounded) before the sub- 
scripting operation is performed. The following array element references are valid: 

A(A(I)) 

BETA(SIN(X/Y)+0.5) 
ABC(4,FUNC(3. 4),TANH(W)/2) 

Note that if a subscript expression contains another array element reference, then this nesting of 
subscripts may be continued to a maximum depth of 10. 

Arrays in Storage 

Arrays are stored in column sequence, with the first subscript varying most rapidly and 
the last varying least rapidly. 

For example, the two dimensional array A^^^ is stored as follows; from lowest numbered 
memory location to highest: 

^n ^21 ^31 • • • ^ml "^12 ^22 ^^32 * " * '^In ' * * '^mn 

Note that the first element of any array has a subscript of 1, not 0. An array name 
must normally always have a subscript. In certain cases the subscript may be omitted. An 
array name used without a subscript refers to the entire array. 

2-4 EXPRESSIONS 

Expressions are strings of operands separated by operators. Operands may be constants 
variables, or functions references. Operators may be unary or binary; i. e. , they mc/ operate on 
a single operand or on pairs of operands. 

An expression may be classed as arithmetic, logical, or relational. It may contain sub- 
expressions. A subexpression is an expression enclosed by parentheses. An expression is single 
value, that is, its evaluation has a unique result. 

Arithmetic Expressions 

An arithmetic expression is a sequence of operands (integer, real, double -precision, 
complex, constant, variable, or function references) connected by arithmetic operators. 

Arithmetic Operators 

The arithmetic operators are: 

Operator Operation 

+ Addition (binary) or Positive (unary) 

Subtraction (binary) or Negative (Unary) 
* Multiplication 

/ Division 

** Exponentiation 
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2-4 EXPRESSIONS (CONT'D.) 

Arithmetic Opgrators (Cont'd.) 

Some examples of arithmetic expressions are; 
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Evaluation Hierarchy 



The evaluation hierarchy of arithmetic operators is as follows: 

1. The innermost subexpression, followed by the next innermost subexpression, until 
all subexpressions have been evaluated. 

2. The arithmetic operations, in the following order of precedence: 



Operation 

Exponentiation 

Multiplication and 
Division 



Addition and 
Subtraction 



Operator 

** 

* 

/ 

+ 



Order 

1 (highest) 

2 



Some additional conventions are necessary. 

1 . At any one level of evaluation, operations of the same order of precedence are 
evaluated from left to right. Consequently, I/J/K/L is equivaUsnt to ((I/J)/K)/L 

2. The sequence "operator operator" is not permissible. Therefore, A*-B must be 
expressed as A*(-B). 

3. As in algebraic notation, parentheses are used to define evaluation sequences 
explicitly. Thus A + B is written as (A+B)/C. 

C 
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2-4 EXPRESSIONS (CONTD.) 



Evaluation Hierarchy (Cont'd.) 



Example: 

The expression A*(B+C*(D-^(F+G)-H)+P(3)) is evaluated in the following sequence: 
r, = F+G 

''2 " ^"*1 
r^ = D-rj-H 

r4=C*r3 



r^ = B + r^ + P(3) 

r^ = A*r5 

where the r. indicates the levels of evaluation. 



Mixed Expressions 

Where an arithmetic expression contains elements of more than one type, it is known as a 
mixed expression. Integer, real, double precision, and complex elements may be mi> d in an 
arithmetic expression using any of the arithmetic operators EXCEPT exponentiation. 

Allowable mixing using exponentiation (**) is shown in Table 2-1. The entries in the 
table give the variable type of the result, if allowed. 

Table 2-1. Allowable Mixed-Mode Exponentiation 

BASE ** EXPONENT = RESULT 



Base 


Exponent 


Result 


Comment 


Real 


Real 

Integer 

Double Precision 

Complex 


Real 

Real 

Double Precision 

None 


Fatal Compile Time Error 


Double Precision 


Real 

Integer 

Double Precision 

Complex 


Double Precision 
Double Precision 
Double Precision 
None 


Fatal Compile Time Error 


Integer 


Real 

Integer 

Double Precision 

Complex 


None 
Integer 
None 
None 


Fatal Compile Time Error 

Fatal Compile Time Error 
Fatal Compile Time Error 
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EXPRESSIONS (CONT'D.) 



Mi xed Expressions (Conf-'d.) 



Table 2-1. Allowable Mixed-Mode Exponentiation (Cont'd.) 



Base 


Exponent 


Result 


Comment 


Complex 


Real 

Integer 

Double Precision 

Complex 


Complex 
Complex 
Complex 
None 


Real Precision Result 
Fatal Compile-Time Error 



Within a mixed expression, elements of lower precedence type are converted to the higher 
type before being combined with other elements. Thus, for example, (^3/4) is an integer expression 
and has the value zero, while 3./4 is a real expression and has the value 0.75. 

The following rules also apply to mixed expressions: 

1 . Expressions appearing as subscripts are independent of the expre.'jsion in which 
the array appears. The subscript expressions are evaluated in their own mode 
and neither affect the mode of the outer expression nor are affected by it. 

2. With the exception of certain basic functions, the same rule applies to expressions 
appearing as arguments as to those appearing as subscripts. They are always 
evaluated in their own mode; they may, however, affect the mode of the function 
result and thus of the expression in which the result is used. See Table 2-8, 
Library Functions. 

3. Integer expressions that appear as exponents (i.e., to the right of an ** operator) 
are evaluated in their own mode; that is, integer. 

4. Integer, real, and double-precision values that appear in complex expressions are 
assumed to have imaginary parts of zero. 

5. Values of expressions, subexpressions, and elements may not exceed the limits 
associated with the mode of the expression. 



Relational Ex pressions 

The Form of a relational expression is 

e, r e^ 

v^here e, and e« are arithmetic expressions and r is a relational operator. 

Evaluations of relational expressions result in either of the two values "true" or "false", 
i.e., a logical value. 
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2-4 EXPRESSIONS (CONT'D. ) 

Relational Expressions (Cont'd. ) 

Relational operators cause comparisons between expressions. 

Operator Meaning 

. LT. <Less than 

. LE. < Less than or equal to 

. EQ. = Equal to 

. NE. /Not equal to 

. GE. > Greater than or equal to 

. GT. > Greater than 

When two arithmetic expressions are compared, using a relational operator, the two 
expressions are first evaluated, each in its own mode, then the comparison is made in the mode 
of higher precedence. 

If the mode of either or both of the expressions is complex, then the relational operator 
must be . EQ. or . NE. If it is not, then an error will result. Complex values are considered equal 
only if both the real and imaginary portions are equal. 

Logical Expressions 

Logical expressions are expressions of the form: 

®1 ^1 ®2^2®3^3- • • ®n 

where the e. are logical elements and the c. are the binary logical operators. 

Evaluations of logical expressions result in either of the two values "true" or "false". 

Logical elements are defined as one of the following entities. 

1. A logical variable or function reference 

2. A logical constant 

3. A relational expression 

4. Any of the above enclosed in parentheses 

5. A logical expression enclosed in parentheses 

6. Any of the above, preceded by the unary logical operator . NOT. 
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2-4 EXPRESSIONS (CONTD.) 



Logical Operators 

Logical operators are listed and evaluated in Table 2-2. Table 2-3 is a truth table for 
the logical operators. 

Table 2-2. Evaluation of Logical Operators 



LOGICAL 
OPERATOR 


OPERATOR 
TYPE 


EXPRESSION 


EXPRESSION 
EVALUATION 


.NOT. 


unary . NOT. e 


true only when e is false. 


.AND. 


binary 


e^ .AND. e2 


true only when both e, and e^ 
are true. 


.OR. 


binary 


e^ .OR. e2 


true when either or both e, and e^ 
are true. 


.XOR. 


binary 


e^ .XOR. ^2 


true when either but not both e, 
and 62 are true. 



EXPRESSION 
CONDITION 



Table 2-3. Truth Table for Logical Operators 
EXPRESSION EVALUATION 



^1 


«2 


• NOT.e^ 


e^.AND.e2 


e^.OR.e2 


e^.XOR.e2 


True 


True 


False 


True 


True 


False 


True 


False 


False 


False 


True 


True 


False 


Tnje 


True 


False 


True 


True 


False 


False 


True 


False 


False 


False 



Evaluation Hierarchy 



The evaluation hierarchy for logical expressions are: 

1. arithmetic expressions 

2. relational expressions (The relational operators are all of equal precedence.) 

3. The innermost logical subexpressions, followed by the next innermost logical sub- 
expression, etc. 
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2-4 EXPRESSIONS (CONT'D.) 

Evaluation Hierarchy (Cont'd.) 

4. the logical operations, in the following order of precedence; 
Operator Order 



. NOT. 


1 (highest) 


.AND. 
.XOR. 


2 


.OR. 


3 


For example, the expression 




L.OR. . NOT. M. AND. X.GE.Y 




is interpreted as 




L.OR. ((.NOT.M) .AND. (X.GE.Y)) 




Logical -Integer Operators 





Harris FORTRAN allows integer typed variables and constants to be combined using the 
standard FORTRAN logical operators plus two additional operators which are defined for integer 
typed data only: 

.SHIFT. 

.ROTAT. 

The .SHIFT. Operator 

e. SHIFT, i 

e is an integer arithmetic expression, and 

i is an integer constant such that -24 < i < 24. The value of i specifies both the 
magnitude and direction of the shift. If i is positive, the direction of the shift is left, 
and if i is negative, the direction of the shift is right. This convention is adopted so 
that using,a shift operator on a word is equivalent to multiplying the 24 bit unsigned 
word by 2', 
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2-4 EXPRESSIONS (CONT'D.) 

The. SHIFT. Operator (Cont'd.) 
Examples: 
EXPRESSION 



K. SHIFT. 5 
K. SHIFT. 5 
K. SHIFT. -5 
K. SHIFT. -5 

The .ROTAT. Operator 



VALUE OF K 

'17777777 

'03040506 

'77777777 

'03040506 



VALUE OF EXPRESSION 
'777777 A^ 
■42024300 
'^1777777 
'00061012 



e. ROTAT. i 

where: 

i specifies both the magnitude and direction of rotation. 

The value of i specifies both the magnitude and direction of rotation. 

If i is positive, the direction of the rotation is left, and if i is negative, the direction 
of the rotation is right, as in the shift operator. 



Examples: 
EXPRESSION 
K. ROTAT. 6 
K. ROTAT. 6 
K. ROTAT. -6 
K. ROTAT. -6 



VALUE OF K 

'12345670 

'40506070 

'12345670 

■40506070 



VALUE OF EXPRESSION 
'34567012 
'50607040 
■70123456 
■70405060 



When the logical operators, .AND., .OR., and .XOR, are used on integer data, these 
data are considered to be 24-bit machine v/ords, and the effect of the operator iis as follows: 

LAND. J is the bit by bit logical intersection (and) of the words I and J. 

I. OR. J is the bit by bit logical union (or) of the words I and J. 

I.XOR. J is the bit by bit logical exclusive or of the words I and J,. 
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2-4 EXPRESSIONS (CONT'D.) 

Evaluation Hierarchy 

The evaluation hierarchy for logical -integer operators is: 

Operator Order 

.SHIFT. 1 (highest) 

.ROTAT. 

.AND. « 

.XOR. ^ 

.OR. 3 

Note that the operator . NOT. is not included with the logical-integer operators. A 
logical complement of an integer value can be obtained by an exclusive or with a constant 
consisting of all ones; i.e., the logical (ones) complement of the integei* I, can be obtained by 
the expression: 

I.XOR. '77777777 or I. XOR.-1 

Examples of the use of logical-integer operators for bit and byte manipulation and 
testing are: 

1. Move the left byte from word J into the middle byte of word K without disturbing 
the left and right bytes of word K: 

K=(K.AND. '77600377) .OR. (J. SHIFT. -8.AND. '177400) 

The parentheses in example 1 are used for clarity, and are not necessary since the 
hierarchical order of the operators guarantee performance of the operations in 
the proper order. 

2. Jump to statement number 750 if bit 20 of word J is on (i.e., contains a 1) other- 
wise go to statement number 500: 

If (J .AND. '4000000) 500, 500, 750 

3. If bit 3 of word J is off, turn on bit 5 of word K: 
If ( (J . AND. "4) . EG. 0) K = K . OR. '20 

2-5 ASSIGNMENT STATEMENT 

An assignment statement has the form: 

V = e 

where 

V is a variable (a scalar or an array element of any type), and e is an expression of 
appropriate t/pe (see Table 2-4). 
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2-5 ASSIGNMENT STATEMENTS (CONT'D. ) 

The sfatement means, "assign to v the value of the expression e". The expression need 
not be the same type as the variable, though in practice it usually is. When it is not, the expression 
is evaluated in its own mode, independent of the type of the variable. Then, if permissible, it is 
converted to Irhe type of the variable according to Table 2-4 and assigned to the variable. 

Table 2-4. Expression Type for Mixed Variable Assignments 

VARIABLE = EXPRESSION 



Variable 


Expression Type 


Result 


Comment 


Integer 


Integer 


Integer 






Real 


Integer (1) 






Double Precision 


Integer (1) 






Complex 


None 


Fatal Compile Time Error 




Logical 


None 


Fatal Compile Time Error 


Real 


Integer 


Real (2) 






Real 


Real 






Double Precision 


Real (3) 






Complex 


None 


Fatal Compile Time Error 




Logical 


None 


Fatal Compile Time Error 


Double Precision 


Integer 


Double 
Precision (2) 






Real 


Double 
Precision (3) 






Double Precision 


Double 
Precision 






Complex 


None 


Fatal Compile Time Error 




Logical 


None 


Fatal Compile Time Error 


Complex 


Integer 


Complex (2) 


Imaginary Part Set to O. O 




Real 


Complex 


Imaginary Part Set to O. O 




Double Precision 


Complex (3) 


Imaginary Port Set to O. O 




Complex 


Complex 






Logical 


None 


Fatal Compile Time Error 


Logical 


Logical 


Logical 






All other expression < 


;ause fatal compile t 


me errors. 

1 _ 



(1) Converted to integer and truncated such that -8388608 £ N < 8388607 

(2) Converted to appropriate type. 

(3) Precision adjusted to fit type. 
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ASSIGNMENT STATEMENT EXAMPLES 
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CONTROL STATEMENTS 



Each executable statement in a FORTRAN program is executed in the order of its 
appearance in the source program, unless this sequence is interrupted or modified by a control 
statement. 



Labels 



If program control is to be transferred to a particular statement, that statement must be 
identified. Statements are identified by labels, which are also called statement numbers. 
Statement numbers consist of up to five decimal digits; they must be greater than zero; 
embedded blanks and leading zeros are not significant. 



Examples: 

400 99999 756 



00500 



GO TO Statements 

GO TO statements transfer control unconditionally from one point in a program to another. 
FORTRAN includes three forms of GO TO statements: unconditional, assigned, and computed. 
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2-6 CONTROL STATEMENTS (CONT'D.) 

Unconditional GO TO Statements 

This statement has the form 
GO TO k 

where k is a statement number. The result of the execution of this statement is that 
the next statement executed is the statement whose label is k. 

Example: 

GO TO 502 

98 X = Y 

502 A = B 



statement 502 will be executed immediately after the GO TO statement. 

Assigned GO TO Statement 

The format of the assigned GO TO statement is 

GO TO V 

or optionally, 

GO TO V, (k^, k2, ky ...,k^) 

where: 

V is an integer variable that has been assigned the location of a statement via an ASSIGN 
statement. 

k. is a statement number. 
I 

This statement transfers control to the statement whose location has been assigned to the 
variable v. 

If the optional form is used (i.e., the list of k}), each label appearing in the list must be 
defined in the program in which the GO TO statement appears (i.e., must be the label of a 
program statement). This form is provided for compatibility with other systems. 
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2-6 CONTROL STATEMENTS (CONT'D.) 

Assigned GO TO Statements (CONT'D.) 
Examples: 

ASSIGN 5371 to LOC 
GO TO LOC 

GO TO LOC, (117, 56, 101, 5371) 
The two GO TO statements transfer control to the statement labeled 5371. 

Computed GO TO Statement 

The computed GO TO statement is expressed as 

GO TO(k^, kj, kg, ..., k^), i 

where: 

k. is a statement label, and 

i is an integer. 

This statement causes control to be transferred to the statement whose label is k. where 
j is the integer value of the variable i for 1 < j < n. J 

Example: 

STATEMENT VARIABLE TRANSFER TO 

GOTO (98, 12,405,3), N 3 405 

ASSIGN Statement 

The ASSIGN statement, used to assign a label to a variable, has the form 

ASSIGN k TO V 

where: 

k is a statement label and 

V is an integer variable. 

Examples: 

ASSIGN 5 TO JUMP 
ASSIGN 222 TO M 
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2-6 CONTROL STATEMENTS (CONT'D.) 

Arithmetic IF Statements 

Tlie format for arithmetic IF statements is 

IF (e) ky k2, k^ 

where : 

e is an expression of integer, real, double -precis! on, or complex mode, and 

k,, ky and k^ are statement labels. 

The arithmetic IF statement is interpreted to mean 

IF e < 0, GO TO k^ 

IF e = 0, GO TO kj 

IF e> 0, GO TO kg 

Note that if e is a real or double precision expression, a test for exact zero may not be 
meaningful on a binary machine. If the expression involves any amount of computation, a very 
small number is more likely to result than an exact zero. 

Examples: 

Statement Expression Value Transfer To 

IF(K) 1,2,3 47802 3 

IF(3*M(J)-7)76,4,3 -6 76 

IF(C(J,10)+V4)23,12,12 0.0002 12 

IF(K*N**2-14* LIMIT) 78, 444, 78 -1000 78 

IF (Z-B-3. 1416 + SQRT(X-2))3,3,7 23.40669 7 



If the expression is complex, then k, must be the same as k«. Otherwise, an error will 
.w,„lt. If k, is the same as ky then the branch to kj will only be toHcen if both the real and 
imaginary portions of the expression value are zero. 



resu 



2-22 



Revision A 
February, 1975 



2-6 CONTROL STATEMENTS (CONT' D. ) 
Arithmetic IF Statements (CONT'D. ) 



It is also possible to omit one or two of the k.'s. In this case, if the condition associated 
with the omitted k. occurs, then execution proceeds with the statement following the IF statement. 
If ko is omitted, then the trailing comma may also be omitted; if k2 and k^ are omitted, then both 
train ng commas may be omitted. 



Examples 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



1,2,3 
,2,3 

1,,3 

1,, 

1 

1,2 
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2-6 CONTROL STATEMENTS (CONT'D.) 

Logical IF Statement 

The logical IF statement is represented as 

IF(e) s 

where: 

e is a logical expression, and 

s is any executable statement other than a DO or another logical IF. 

The statement s is executed if the expression e has the value "true"; otherwise, the next 
executable statement following the logical IF statement is executed. The statement following 
the logical IF will be executed in any case after the statement s, unless the statement s causes a 
transfer. 

Examples: 

IF (FLAG .OR. L) GO TO 3135 

IF (W . OR. N. LT. U/S + X3 (J,K)) R (J-8) = Q * ABS(X) 

IF(OCTT* TRR.LT. 5.334E4) CALL THERML(N,Y(L, 5)) 

IF(ITB.EQ.1.AND. NS.ROTAT.-l.LT.O) IF (N-1) 43, 53, 63 

CALL Statement 



The CALL statement is used to call or transfer control to a SUBROUTINE subprogram, 
SUBROUTINE ENTRY point or a FUNCTION ENTRY point (refer to "2-9 PROGRAMS AND 
SUBPROGRAMS - SUBROUTINE Subprograms") and may take either of the following forms: 

CALLp 

CALL p (a^, oj, a3,...,a^) 

where: 

p is the identifier of the subroutine and a| is an argument. Arguments may be constants, 
variables, expressions, statement labels, or array or subprogram names (refer to "2-9 PROGRAMS 
AND SUBPROGRAMS - Arguments and Dummies"). 

A subroutine is similar to a function except that it does not necessarily return a value 
and must not, therefore, be used in an expression. Also, a function must hove at least one argu- 
ment, a subroutine may have none. For example, 

CALL CHECK 
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2-6 CONTROL STATEMENTS (CONT'D.) 



CALL Statements (Cont'd.) 

Arguments that are scalars, array elements, or arrays may be modified by a subroutine 
effectively returning as nrwny results as desired. 

A complete discussion of the usage and forms of arguments to subprograms is contained 
in Section 2-9. 

A subroutine name has no type (e.g., real, integer) associated with it; lit merely identifies 
the block of instaictions to be executed as a result of the CALL. Therefore, the appearance of 
a subprogram name in a CALL statement does not cause it to take on any implicit type. 

Other examples of CALL statements are given below. (Note that statement labels ore 
identified by being preceded by a dollar sign ($). 
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RETURN Statement 



The RETURN statement causes an exit from a subprogram. It takes the Form: 
RETURN 



or 



RETURN n (Extended Compiler Only) 

Where n is an integer variable dummy (refer to Section 2-9, Arguments and Dummies) 
and n has been assigned a statement number by the calling program using on ASSIGN statement 
(Section 2-6) or n corresponds to a statement number argument (i.e., $mmmm). This form of the 
RETURN statement gives the user a non -normal return capability. 

A RETURN statement must be logically the last statement executed in any subprogram;it 
need not be physically the last. There mav be any number of RETURN statements in a subprogram. 
A RETURN statement In a main program will be treated as an error. 

In a subroutine, the RETURN statement returns control from the subroutine to the first 
executable statemert following the CALL statement that called the subroutine. In a function it 
causes the latest value assigned to the function name to be returned, as ^1^® J^^^^.^J^Vk. n^'. m 
expression in which the function reference appeared (see Section 2-9, PROGRAMS AND SUB- 
PROGRAMS). 
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2-6 CONTROL STATEMENTS (CONT'D.) 

DO Statement 

The DO statement may be written in two ways: 

DO k V = i,, 12, io 

DO k V = i,, 12 

where 

k is a statement label, 

V is a scalar variable of integer type, 

i,, i2, and io are integer variables or constants. 

Integers i, and i^ must appear. If i« is not present, it is assumed to have the value 1. 

A DO statement indicates that the block of statements following it are ta be executed 
repetitively. Such a block is called a DO loop, and all statements within it, except for the 
opening DO statement, constitutes the range of the DO statement. The last statement in a DO 
loop is the terminus and bears the statement label k. 

The execution of a DO loop proceeds in the following manner: 

1 . The variable v is assigned the value of i,. 

2. If the incremental value (i^) is an integer variable or positive integer constant, the 
variable C is compared to me terminal value (12). If v is greater than i2, control 
is passed to the statement following the one whose label is k. If v is less than or 
equal to i2, continue ta step 3. 

If the incremental value (i3) is a negative integer constant, the variable v is 
compared to the terminal value (i2). If v is less than i, control is passed to the 
statement following the one whose label is k. If v is greater than or equal to i2, 
continue to step 3. 

3. The range of statements is executed for one iteration. 

4. The value of v is incremented by the value of io. 

5. The process is repeated from Step 2. 

The actual number iterations defined by the DO statements is given by 

+1,0 



max 



'2-'l 



'3 

where the brackets represent the largest integral value not exceeding the value of the 
expression. 
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2-6 CONTROL STATEMENTS (CONT'D.) 



DO Statement (Cont'd.) 



Note that if conditions for termination are met initially, the entire range of the DO 
loop will not be executed. 

The terminal statement of a DO range (i.e., the statement whose label is k) may be any 
executable statement other than one of the following: 

DO statement 

GO TO statement 

Arithmetic IF statement 

RETURN statement 

STOP statement 

Note that logical IF statements are ollowed as terminal statements of a DO range. 

Examples: 
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In the example that begins with statement 22, the range of statements 23 through 54 will 
be executed 15 times, unless the arithmetic IF statement causes a transfer ta statement 12. If all 
15 iterations are completed, control is passed to statement 12 at the end of the iTfteenth iteration 
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2-6 CONTROL STATEMENTS (CONT'D.) 

DO Statements (Cont'd.) 

The value of the variable v appearing in a DO statement depends on the number of 
iterations completed. The value of v during any one iteration is 

i,+(i-l)M3 

where i is the number of the current iteration, and i] and i3 have the meanings discussed 
above. If a transfer is made out of the range of a DO before all iterations have been completed, 
the value of v will be that of the iteration during which the transfer occurred. However, should 
the entire number of iterations be executed, the value of v is 

i, +n*i3 

where n is the total number of iterations specified by the DO statement. 

Thus, in the example beginning with statement 22, if all iterations are completed, 
statement 12 will be equivalent to 

12 L = Y(16) 

However, if the arithmetic IF statement causes a transfer to statement 12 during the 
eighth iteration, the statement will mean 

12 L = Y(8) 

The value of the variable v may not be modified within the range of the DO, nor may it 
be modified by a subprogram called within the range of the DO. 



5 


DO 10 1 = 2,-2,-1 




WRITE (6,1) I 


1 


FORMAT (X,I3) 


10 


CONTINUE 


Will Print: 


2 




1 









-1 




-2 
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2-6 CONTROL STATEMENTS (CONT'D.) 

DO Statement (Cont'd.) 

A transfer into the range of a DO may only occur if there has been a prior transfer out of 
the DO range. For example: 

DO 25 1= 1,9 
GO TO 8605 

24 A = 1/8 

25 JGU-Y(I)**E 

8605 R=SIN (G(I)) +JSU 

8606 GO TO 24 

is permissible; in fact, the statements 8605 through 8606 are considered part of the DO 



range. 






The sequence 




GOTO 11 




• 

DO 32 J - 2,36,2 


11 


R(J) = 47.E-7*T(J) 


32 


T(J) = Q 



is not valid because no transfer could possibly occur out of the DO range. 

A DO loop may include another DO loop. That is, DO loops may be nested; however, 
they may not be overlapped. In a nest of DO loops the same statement may be used as the terminal 
statement for any number of DO ranges; transfers to this statement may be made only from the 
innermost DO loop. TViere is no limit to the number of DO ranges that may be nested. 
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2-6 CONTROL STATEMENTS (CONT'D.) 

CONTINUE Statement 

This statement is written as 

CONTINUE 

and must appear in that form. The CONTINUE statement does not cause the compiler to generate 
machine instructions, and consequently has no effect on a running program. The purpose of this 
statement is to allow the insertion of a label at any point in a program. 

For example: 

DO 72 1= 1,10 

IF (X **I-K).9999E-.5) 72,72,88 
72 CONTINUE 

88 H(33)=T(3,R,L,Ey22.5 



CONTINUE statements are most often used as the terminal statement of a DO range, as in the 
above example. 

PAUSE Statement 



PAUSE statements are written as 

PAUSE 

PAUSE a 
where 
a is a set of 1 to 5 alphanumeric characters 

This statement causes the program to cease execution temporarily, presumably for the 
purpose of allowing the computer operator to perform some specified action. Ihe operator cdn 
signal the program to continue execution, beginning with the statement immediately after the 
PAUSE. (See HOLD CONDITIONS in the Operating Systems, General Specifications). 

The literal constant, a, will be displayed on the operator communications device when 
the program pauses. 
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2^ CONTROL STATEMENTS (CONT'D. ) 

STOP Statemen t 

STOP statements are written in the form 

STOP 

STOP a 

where: 

a is a set of 1 to 5 alphanumeric characters. 

This statement terminates the execution of a running program. A message indicating 
execution of a STOP statement and the literal a (if present) will be output to the list output 
device. 

END Statemen t 

An END statement is used to inform the FORTRAN compiler that the physical end of a 
program has occurred. The statement must appear in one of the forms: 

END 

END$ 

If control reaches an END statement, the effect is that of a STOP statesment except 
that no message is output. An END statement may be labeled. 

The following restriction applies to any statement that begins with the character string 
END: 

If, at the end of any FORTRAN line (which may be a continuation line) the compiler 
has encountered only the characters END, the compiler assumes that the statement is an END 
statement and will act accordingly. 

The END$ form is used by the FORTRAN compiler in the same manner as the DC 6024 
Assembler, i. e. , it is processed exactly like an end card after which all logical I/O files are 
closed and control is returned to the system. 

2-7 INPUT/OUTPUT 

FORTRAN input/output statements cause transmission of data between memory and 
peripheral devices at program execution time. These statements specify a logical file number 
that is associated with the peripheral device, and may contain an input/output list specifying 
the data to be transferred, or a reference to a FORMAT statement which controls conversion 
and editing of the transferred data. 
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2-7 INPUT/OUTPUT (CONT'D.) 

I/O Lists 

An input/output list defines the data that is to be processed by the input/output statement 
in which the list appears. 

Simple Lists 

A simple list has the form 

where each e. may be 

a scalar or array element, 

an array name, 

another input/output list enclosed in parentheses. 

Note that the last item implies that input/output lists may be nested to any level; 
furthermore, redundant parentheses are permissible. However, parentheses are mandatory only 
to enclose DO-implied lists. 

Examples: 

A 

MATRIX (25, L) 

MATRIX, T 

RY, Y(N,M), (X23A, HB, XKE) 

When an unsubscripted array name appears in an input/ output list, it refers to all of the 
elements in the array in storage order (see Section 2-3, DATA - Arrays in Storage). This means 
that the elements are accessed beginning with the lowest subscript value for each dimension and 
ending with the maximum subscript value for each dimension. In between the first subscript 
varies most rapidly and the last subscript varies least rapidly. This is also called "columnwise" 
ordering. 

For example, if V is a 2x3x2 array, then the list item V is equivalent to the following 
elements in the order shown. 

V(l,1,l) 
V(2,l,l) 
V(1,2,l) 
V(2,2,l) 
V(l,3,1) 
V(2,3,l) 
V(l,l,2) 
V(2,l,2) 
V(l,2,2) 
V(2,2,2) 
V(l,3,2) 
V(2,3,2) 
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2-7 INPUT/OUTPUT (CONT'D.) 

D O-Implled Lists 

A DO-implied list is a simple list followed by a comma and then by a DO-control of 
the form 

v=i,,i2''3 
where 

V is CI DO-control integer variable, 

i,, i.», and io are DO-parameters as described in Section 2-6. 

The meaning of a DO-control is similar to that of a DO statement, that is, all the items 
in the simple list preceding the DO-control are repeated over and over while v is incremented 
from ii to i2 i«^ steps of i-^- 

A DO-implied list enclosed in parentheses becomes a simple list item. Thus, an input/ 
output list may contain any number of nested DO-implied lists, with the provision that all the ne; 
lists must be enclosed in parentheses. 

Examples: 

DO-implied lists Equivalent Simple Lists 

(X(I), 1=1,4) X(l), X(2), X(3), X(4) 

(A(J), B(J), J = 1,3) A(l), B(l), A(2), B(2), A(3), B(3) 

(G(2*N), N - 3,9,2) G(6), G(10), G(14), G(18) 

T,(C(J), J = 3,5), E,LENGTH T,C(3), C(4), C(5), E, LENGTH 

((A(],J), I = 7,9), J = 1,3) A(7,l), A(8,l), A(9,l), A(7,2), A(8,2), 

^^^ '^' A(9,2), A(7,3), A(8,3), A(9,3) 

(R,T(K), K-2,3) R, T(2), R, T(3) 

The DO-control variable in an input/output list is available and may also be used as a 
list item. The output list 

(K, A(K), K= 1,3), G(K) 

is equivalent to the simple list 

1, A(1),2,A(2), 3,A(3), G(4) 

In Harris FORTRAN, a DO-implied list functions in the same manner as a DO statemeni 
If the terminol conditions of a loop are met initially, it will be done "no times". Thus, the lists 
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I/O Lisf - DO-Implied Lisfs (Cont'd.) 

(G(K), K-34, 22) 

(J, X(J), J- 10,9,1) 

will not cause data to be read or written. 

Free Format READ/\A/RITE 

The free format I/O statements permit I/O operation within defined limits. Data conversion 
takes place based on the variable type encountered in the list. 

There are three statement forms available for use with the free format feature. They are: 

READ(u,-) ... 
WRITE(u,-) '"^ 

READ(u,) ,. 
WRITE(u,) '"^ 

READ, (implied unit is 7) 

PRINT, list (implied unit is 6) 

PUNCH, (implied unit is 8) 

Data to be read under free format consists of one or more records. Data values in the 
input stream must be separated from each other by a comma and/or one or more blanks. Data 
will be read until the list is satisfied. 

The input data must be of the same type as the variable. Therefore, an integer must not 
contain a decimal point and a logical variable must begin with a "T" to set the value TRUE and 
any other character to set the value FALSE. Real, double precision and complex data must be 
input in any of the forms acceptable under a formatted READ statement and if an exponent is 
present in the data it must begin with an E or a D. The decimal point is optional and, if it is 
omitted, it is assumed to be to the right of the last digit. 

A printed line of free-format consists of 120 print positions. Since the formats used for 
free-format output provide for at least two leading blanks, column 1 of the output line will al- 
ways be blank. Thus, free-format output will be single spaced. Additional carriage control 
must be provided by formatted output if it is desired. 

The output field widths of the various variable types are as follows: 

Integer — 110 

Logical — L3 

Real - 1PE14.5 

Double precision — 1PD19. 10 

Complex — 1P2E14.5 
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Free Format READ/WRITE (Cont'd. ) 

Note: The output accuracy for real, double precision and complex values is such that 
all full digits of accuracy for the value are output. Partial digits (least significant bits) are not 
output. This avoids output of numbers such as 1.9999999999, where the value is effectively 
2.0000. 

If the current line will not accommodate the list variable field width to be printed, a 
new line will be started, e.g., five complex values cannot be printed on the same line, since 
the total field width required is 140 columns. Therefore, only four complex variables will be 
printed on the line. 

The definition of the abbreviations used in the examples which follow are: 

D = l>ouble Precision Variable 

C = Complex Variable 

X = Real Variable 

L = Logical Variable 

I = Integer Variable 

Example: The statement 

READ (7,) (D(J), C(J), X (J), L(J), I(J), J = 1,3) 

will read any of the following data sets: 

1. 1.2,2.,3.,3. 1,F,1,1.,6.,7.,4.,T,2,6. 1,2.2,3.3,4.4,FALSE,3 

2. l.ODO 0.0,3., 7.0, TRUE, 44 

-3. 14D1 11.692,4.52, 3.81, FALSE, 88000 
1.23E17 5.65 2.03 1 . 1 1 98, TO, -786 

3. 1.2 
3.4 
5.6 
7.8,T,25 

13.8, 88.8, 91.6, 17.8 
THISISATRUESTATEMENT 5 
-900000000, .000001 
-.0000023, 1.5, FALSE 
8388607 

The coding sheet which follows shows several examples of WRITE statements and the 
resulting output format. All values shown are arbitrarily chosen for the sake of example. 



2-34 



2-7 INPUT/OUTPUT (CONT'D. ) 



Free Format READA/RITE (Cont'd. ) 




7 8 ! 9 

i.2J'4'i.6.i,8:'''f' '.' "i s,' 8:3|0. K2.'- <'5.6 7 s t 



]. :^'i...:..^B 



10 



11 



i ', 



-«,':^iajj9¥fjiMiir': 






„ ...I I. 



READ Statement 



The READ statement forms are: 

READf 

READ f,k 

READ (Uf)k 

READ (UO 

READ (Uf,END=Sl,ERR=S2) k 



formatted 



READ (L) k 

READ (L) 

READ (UEND-Sl,ERR=S2)k 



w 



here: 



unformatted 



L is an integer variable or constant specifying a logical file. The logical file for the 
card reader (LFN 7) is implied for the forms READ f and READ f,k. 

f is the statement label of a FORMAT statement or a variable FORMAT specification 
(see FORMAT - Stored in Arrays), and 

k is an Input/Output list. 
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READ Statement (Cont'd.) 

51 Is the statement number to be executed when an End-of-File is detected. 

52 is the statement number to be executed on a format error. 

Either or both parameters may be present in any order. 

The formatted form of the READ statement causes external symbolic data to be read and 
converted into internal form under control of the FORMAT statement specified by f. If no list 
is specified, the READ statement may cause a record to be skipped, or cause data to be read 
directly into the FORMAT statement. 

The unformatted form of the READ statement causes external binary data to be read and 
placed directly into the locations specified by the list, k. If no list is specified, the unformatted 
read has the effect of skipping a record. 

WRITE Statement 



The Write statement forms are; 



PRINT f 
PRINT f,k 
PUNCH f 
PUNCH f,k 
WRITE (L,f)k 
WRITE (L,f) 



formatted 



WRITE (L)k \ unformatted 
where: 

L, f, and k have the same meaning as in the READ statement. The logical file for the 
line printer (LFN 6) is implied for the PRINT statements, also the logical file for the card punch 
(LFN 8) is implied for the PUNCH statements. 

The formatted form of the WRITE statement causes internal data to be converted and 
output under control of the FORMAT statement specified by f. If no list is specified, data may 
be directly output from the FORMAT statement. 

The unformatted form of the WRITE statement causes internal binary data located in 
locations specified by the list, k, to be directly output to the logical file, L. Note that the 
unformatted form of the WRITE statement must specify a list. 

FORMAT Statement 



The FORMAT statement is used to specify the conversion to be performed on data being 
transmitted during formatted input/output operations. It is nonexecutable and may be placed 
anywhere in the program. In general, conversion performed during output is the reverse of that 
performed during input. FORMAT statements are expressed as 

FORMAT (S^, S^r Sy...,S^) 
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FORMAT Statement (Cont'd. ) 
where 

S. is either a format specification of one of the forms described below or a repeated 
group of such specifications in the form 



Wl/ ^0' ^Q^»»»r ^„/ 



where 

r Is a repeat count as described below, and 

S. is as described above; in other words, repetitions may be nested. The commas between 
the S. are Inandatory, except when the S. is of the X of H form, in which case the comma is 
optiofial. 

Every FORMAT statement should be labeled so that references may be made to it by 
formatted input/output statements. An entire FORMAT (the parentheses and the Items they 
enclose) may be stored in an array variable. In this case, the array itself is referenced by the 
input/output statements (see FORMATS Stored in Arrays, Section 2-7, page 2-51). 

Format specifications describe the type of conversion to be performed, specific data to 
be generated, scaling of data values, and editing to be executed. Each Integer, real, double 
precision, or logical datum appearing in an input/output list Is processed by a single format 
specification, while complex data are operated on by two consecutive format specifications. 
Format specifications may be any of the following forms: 



rFw, d 


rlw 


nHs 


wX 


rEw. d 


rLw 


'S' 


Tw 


rDw. d 


rAw 


"S" 


IP 


rGw. d 


rOw 
rRw 







where: 

The characters F, E, D, G, I, L, A, H, X, T, P, and (/) define the type of conversion, 
data generation, scaling, editing, and FORMAT control. 

r Is an optional, unsigned integer that indicates that the specification Is to be repeated 
r times. When r is omitted, its value is assumed to be 1. 

w Is an unsigned integer that defines width in characters (including digits, decimal points, 
algebraic signs, and blanks) of the external representation of the data being processed. 

d for F, E, D, and G input specifications, d is an unsigned integer that specifies the 
number of fractional digits appearing in the magnitude portion of the external field. 
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FORMAT Statement (Cont'd. ) 

For G output specification, d is also an unsigned integer; but in this context it is used \ 
define the number of significant digits that appear in the external field. Therrefore, .ts value 
should not be zero. 

n is an unsigned, decimal integer that defines the number of characters being processed 

i is a signed integer (plus signs are optional). The function of i is described under 
X and P specificationSo 

s is a character string (see H format) 
F Format (Fixed Decimal Point) 

F format specifications are expressed as: 

rFw. d 

Real, double precision, or either part of complex data may be processed by this form 
of conversion. Double-precision values are converted with full precision if sufficient width 
is specified by w, and the value of d allows for the appropriate number of digits in the frac- 
tional portion of the field. 

OUTPUT - Internal values are converted to real constants, rounded to d decimal place 
with an overall length of w. The field is right justified with as many leading blanks as necessai 
Negative values are preceded with a minus sign. Consequently, for the speciiication F11.4, 



273.4 


is converted to 


273. 4000 


7 


is converted to 


7. 0000 


-.003 


is converted to 


-. 0030 


-442. 30416 


is converted to 


-442. 3042 



If a value requires more positions than are allowed by the magnitude of w, the entire 
output field will be filled with asterisks. If an integer or logical value is output with this 
format, the entire output field will be filled with question marks. 

In order to insure that such a loss of digits does not occur, the following relation must 
hold true: 

w > d+2+n 

where n is the number of digits to the left of the decimal point. 
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F Format (Cont'd. ) 

INPUT - Input strings may take any of the integer, real, or double-precision constant 
forms discussed under "Numeric Input Strings". Each string will be of length w with d characters 
in the fractional portion of the value. If a decimal point is present in the Input string, the 
value of d is ignored, and the number of digits in the fractional portion of the value will be 
explicitly defined by that decimal point. F-input data may optionally have exponent specified. 
For the specification FIO, 3, 

33 Is converted to . 033 

902142 is converted to 902. 142 

.34562 is converted to .34562 

-7. 00 1 is converted to -7. 00 1 

2. 3E-2 is converted to .023 

NOTE 

During F format input, any blanks within the input 
field will be processed as zeros. Thus, "1 . 2" 
will be Interpreted as 10.02. This may be over- 
ridden so that blanks are totally ignored thru an 
execution time flag. Under VULCAN, this Is done 
with a Vulcanizer MODE IB statement. Under 
DMS/ROSAOS/DOS, this Is done by setting 
option 16 at execution time. 

E Format 

E format specifications are expressed as: 

rEw. d 

Real, double-precision, or either part of complex data may be processed by this form of 
conversion. Do\h le-precision values are converted with full precision If sufficient width Is 
specified by w and the value of d allows for the appropriate number of digits in the fractional 
portion of the field. 

OUTPUT - Internal values are converted to real constants of the forms 

±. dddd. . . dE±ee 

where dddd. . . d represents d digits and E±ee is Interpreted as a multiplier of the form: 
,0±ee 

The leading sign (before the decimal point) is omitted if positive. 
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E Format (Cont 'd. ) 

Internal values are rounded to d digits, and negative values are preceded by a minus 
sign. The external field is right justified and preceded by the appropriate number of blanks. 
The following are examples for the specification E15. 8: 



90. 4450 

-4-35739015. 

. 000375 

-1 

.2 

0.0 



is converted to 
is converted to 
is converted to 
is converted to 
is converted to 
is converted to 



0. 90445000E-K)2 
-0.43573902E4O9 

0. 37500000E-03 
-0. 10000000E-K)1 

0. 20000000E-K)0 

0. OOOOOOOOE+00 



The field includes the exponent digits, an exponent sign, the letter E, the mantissa 
digits, the decimal point, and the sign of the value (minus or space). If an integer or logical 
value is output with this format, the entire output field will be filled with question marks. If 
a value requires more positions than are allowed by the magnitude of w, the entire output 
field will be filled with asterisks. To prevent this from occurring, the value for w should be 
at least 6 more than the value for d. 

w_> d+7 

is satisfied by the specification. 

INPUT - Forms permissible for strings of input characters are discussed under the headinc 
"Numeric Input Strings" in Section 2-7. Conversion is identical to F format conversion. In 
particular, input fields for conversion in E format need not have exponents specified. 

Examples: 

Input Value 

-113^i09E2 
849935E-02 
23. 5-f-2 

First, the decimal point is positioned according to the specification; then, the value 
of the exponent is applied to determine the actual position of the decimal point. In the first 
example, -1 13409E2 with a specification of El 1.6 Is interpreted as ~. 1 13409E02; which, when 
evaluated (i. e. , -. 1 13409 x 102), becomes -] 1. 340900. 



Specification 


GDnverted fo 


Ell. 6 


-11.340900 


E10.5 


. 0849935 


E8. 1 


2350, 



D Format 



D format specifications are expressed as: 
rDw. d 
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D Format- (Cont'd.) 

OUTPUT - This format is similar to E format, with the exception that for output, the 
character D will be present instead of the character E. For example, 

for El 2. 6, -667.334 is converted to -.667334E 03 

and 

D12.6, -667.334 is converted to -.667334D 03. 

INPUT - Input under D format is the same as for E and F formats. 

G Format 

G format specifications are expressed as: 

rGw. d 

OUTPUT - The method of representation in the external output string is a function of 
the magnitude of the value being converted. The following table shows the correspondence 
between the magnitude of the value and the equivalent method of conversion that will be effected; 

Magnitude of Datum Equivalent Conversion Effected 



0. 1 £ N 10 (w-^-^) F(w-4).d, 4X 

Otherwise Ew. d 

Note that the effectofthe scale factor (see P Specification) is suspended unless the magni- 
tude of the datum to be converted Is outside of the range that permits effective use of F conversion. 

INPUT - The G input conversion is identical to the F input conversion. The numeric 
field descriptor Gw.d indicates that the external field occupies w positions with d significant 
digits. The value of the list item appears internally as a real or double precision value. 

I Format (Integer) 

I format specifications are expressed as: 

rlw 

OUTPUT - Internal values are converted to integer constants. The integers may contain 
as many digits as are specified by w (or w-1 if negative). Negative values are preceded bv a 
minus sign, and the field will be right justified and preceded by the appropriate number of blanks. 

If a value requires more positions than are allowed by the magnitude of w, the entire 
output field will be filled with asterisks. If the value being output with this format Is not an 
integer, the entire output field will be filled with question marks. 
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I Format (Cont'd. ) 

INPUT - External input strings must take the form of an integer constant or signed 
integer constant in the external input field. 

NOTE 

During I format input, any blanks within the input 
field will be processed as zeros. Thus "1 2 3" 
will be interpreted as 10203. This may be over- 
ridden so that blanks are totally ignored thru an 
execution time flag. Under VULCAN, this is done 
with a Vulcanizer MODE IB statement. Under 
DM SA OS A OS/DOS, this is done by setting 
option 16 at execution time. 

O Format (Octal) 

O format specifications are expressed as: 

rOw 

OUTPUT - Internal values are output as octal constants. The numbers may contain as 
many digits as specified by w. The field will be filled with zeros up to 8. Over 8, the field is 
right justified and filled with blanks. If a value requires more positions than are allowed by 
the magnitude of w, the entire output field will be filled with asterisks. 

INPUT - The input string must be less than 8 integer digits from zero (0) to seven (7), 
inclusive, 

NOTE 

During O format input, any blanks within the input 
field will be processed as zeros. Thus, "1 2 3" 
will be interpreted as '10203. This may be over- 
ridden so that blanks are totally ignored thru an 
execution time flag. Under VULCAN, this is done 
with a Vulcanizer MODE IB statement. Under 
DMSAOSAOS/DOS, this is done by setting 
option 16 at execution time. 



L Format 



L format specifications are expressed as: 

rLw 

Onl/ logical data may be processed with this format specification. 
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L Forma f 

L format specifications are expressed as: 

rLw 

Only logical data may be processed with this format specification. 

OUTPUT - Logical values are converted to either a T or an F character for the values 
"true" and "false", respectively. The T and F characters are preceded by w-1 blanks. 

For example, using the specification L4, 

. TRUE. is converted to Jz^JzJKT 

. FALSE. is converted to jj^F 

where K represents the character blank. 

If the value being output with this format is not logical, the entire output field will 
be filled with question marks. 

INPUT - The first non-blank character encountered in the next w characters determines 
whether the value is "true" or "false". If the first non-blank character is a "T" the value is "True 
If the first non-blank character is not a "T", the value is "false". For example, the following 
input fields, processed by an L7 format, have the indicated values: 

True False 



T F 

TRUE FALSE 

T42 (blank) 

TILT ZILCH 

A Format 

A format specifications are expressed as: 

rAw 

where r is the repeat specification and w is the external field width. A-format data is 
represented internally as 8 bit ASCII characters, packed three to a word. Hence, the maximum 
number ot characters that can be stored in an integer element is 3, and in a real or double precision 
element is 6. However, the field width, w, may be greater or less than these maximum internal 
values. The following tables show how conversion is accomplished. 
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A Format (Cont'd.) 



OUTPUT - The output consists of the following; 
Internal Representation 



Integer 

ABC 
ABC 
ABC 
ABC 
ABC 
ABC 
ABC 



Real 



ABCDEF 
ABCDEF 
ABCDEF 
ABCDEF 
ABCDEF 
ABCDEF 
ABCDEF 



Format 
Spec. 

Al 
A2 
A3 
A4 
A5 
A6 
A7 



External Field 



INPUT - The input consists of the following: 
Format Spec. 



Externa 
Field 



ABCDEFG 
ABCDEFG 
ABCDEFG 
ABCDEFG 
ABCDEFG 
ABCDEFG 
ABCDEFG 



Al 
A2 
A3 
A4 
A5 
A6 
A7 



Example: 

DIMENSION B(2) 
READ (7,1) B,I 
FORMAT (1A6,A2,I2) 
WRITE (6,2), B,I 
FORMAT (1X,2A6,I2) 

card input starting in column 1 

ABCDEFGH12 
print out 
ABCDEFGH>{k^l2 



Integer 

A 

AB 

ABC 

bABC 

bbABC 

bbbABC 

bbbbABC 



Internal Representation 



Real 

A 

AB 

ABC 

ABCD 

ABCDE 

ABCDEF 

bABCDEF 



Integer 

A 

AB 

ABC 

BCD 

CDE 

DEF 

EFG 



Real 



A 

AB 

ABC 

ABCD 

ABCDE 

ABCDEF 

BCDEFG 
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A Format (Con! 'd. ) 

If an array name is used in the I/O list, the total number of words may be used to contain 
A format data. For instance, if M is an integer array with dimensions M(4), then an A specificatio 
of 4A3 may be used to read or write 12 consecutive characters from that array. 



on 



R Format 

The R specification is similar to the A formatting specification. If the width specification 
for the R format is not less than the number of characters which can be packed in an element (3 for 
integer, 6 for real/double precision), then the R format is identical to the A format. 

If the R format width specification is less than the maximum number of characters that can 
be packed in the element, then the number of characters specified are processed right -justified 
within the element. On input leading characters are filled with binary zeros; on output, they are 
ignored. 



Example: 
External field 

ABC 

ABC 

ABC 



Format width 



1 



A format input 
'20241103 
'20241040 
■20220040 



R format input 
■20241103 
'00040502 
'00000101 



where the characters have the following octal representations: 



"A" = '101 

"B" = '102 

■■C" = '103 

" " = '040 



H Format (Hollerith) 



H format specifications are expressed as 
nHs 
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H Format (Hollerith) (Cont'd.) 



instance. 



OUTPUT - The n characters in the string s are transmitted to the external record. For 



Specification 
1 HE 

SHKKVALUE: 
5H$3. 95 
9HX(2,5)>^=K 
where K represents the character blank. 



External String 

E 

>iK VALUE: 

$3.95 

X(2,5)>^=K 



Care should be taken that the character string s contains exactly n characters, so that 
the desired external field will be created, and so that characters from other format specifications 
are not used as part of the string. 

INPUT - The n characters in the string s are replaced by the next n characters from the 
input record. This replacement occurs as shown in the following examples: 



Input String 
ABC 

KtimeKforK 

FALSE 
RANDOM 



Resultant Specification 
3HABC 

10HKriMEKF0R>< 
5HFALSE 
6HRANDOM 



Specification 
3H123 

lOHNOVyKlSKTHE 
5HTRUEK 

where 

jt^= the character blank. 

This feature can be used to change the titles, dates, column headings, etc., that are to 
appear on an output record generated by the H specification. 

Harris FORTRAN provides an alternate to the H specification for outputting alpha- 
numeric data. Literal strings are accepted within Format statements and are only accepted for 
output statements. The literal string takes either of the following forms: 
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H Format (Hollerith) (Cont'd. ) 

where s is a string of ASCII characters. When enclosed in quotation marks ("), or 
apostrophes ('), a quotation mark or apostrophe may be represented by two successive quotation 
marks or apostrophes, respectively. 

Examples: 

"THIS IS A 'LITERAL STRING' " 

'THIS IS A "LITERAL STRING"' 

' ' ' ' is equivalent to " ' " 

X Specification (Skip) 

X specifications are expressed as: 

wX 

This specification causes no conversions to occur. Instead, it causes w positions of the 
external field to be skipped or ignored. 

OUTPUT - The next w positions in the output record will be blanks. 

INPUT - The next w characters from the input string are ignored (that is, they are skipped). 

For example, with the specification 

F5. 3, 6X, 13 

and the input string 

76.41IGNORE697 

the characters 

IGNORE 

will not be processed. 

The field width specified for the "X" specification may be negative. In that case, then 
next column from or to which data is to be transferred will be the specified number of columns 
"backwards" of the current column. This specification can be used similarly to the 'T" specification 
(see next section). Note however, that the negative "X" specification references a column number 
relative from the current column while the "T" specification references an absolute column number. 
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T S pecification (Tab) 

The T specification has the form: 

Tw 

where: 

w specifies a character position within the input or output record. 

The T specification causes no transfer of data, but merely resets the character position 
at which the next processing will begin. For example, the following three FORMAT statements 
are equivalent: 

1 FORMAT (1 OX, FT 0.3,1 OX, 1 10) 

2 FORMAT (T11,F10. 3, T31,I1Q) 

3 FORMAT (T31,nO,Tll,FlO. 3) 

Note that it is permissible to tab either forward or backward. 

P Specification (Scale Factor or Power of 10) 

The P specification has the form: 

iP 

where -37 < P < 37. 

The P specification causes the value of the scale factor to be set to i, where the scale 
factor is treated as a multiplier of the forms 

10 for output, and 

10" for input. 

The scale factor is set to zero at the beginning of each formatted input/ output operation. 
Once a scale factor has been encountered it applies to all subsequently encountered F, E, D and 
G field descriptions. Any number of P specifications may be present in a FORMAT statement, 
causing the value of the scale factor to be changed several times during a formatted input/output 
operation. If a FORMAT is re-scanned within a single input/output operation due to the number 
of items in a list (see Section 2-7 "FORMAT and List Interfacing"), the value of the scale factor 
is not reset to zero. 

OUTPUT - The value of the list item is scaled by the multiplier lO'. This causes the 
decimal point to be shifted right i places. On D- and E- type conversions, the exponent field 
(±ee) is correspondingly reduced by i. Thus, for D- and E-type output, the external number is 
equal to the internal value (except for rounding), while for F format output is not equal to the 
internal value (unless i is 0). The following examples illustrate output scaling: 
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P Specification (Scale Factor or Power of 10) (Cont'd.) 

Format External Field when Internal Value is: 

2.71828 -2.71828 



-2PF10.3 .027 -.027 

-1PF10.3 .272 -.272 

F10.3 2.718 -2.718 

1PF10.3 27.183 -27.183 

2PF10.3 271.828 -271.828 

-2PE14.3 0.003E3 -0.003E3 

-1PE14.3 0.027E2 -0.027E 2 

El 4. 3 0.272E1 -0.272E 1 

1PE14.3 2.718E0 -2.718E0 

2PE14.3 27. 183E -1 -27. 183E -1 

The examples for E conversion above are similar to those that would result from D 
conversion and E-type G conversion. When G conversion uses the F form, however, scale factors 
do not apply. Thus, a number output in G format always represents the internal value. 

Note that when a scale factor is in effect, output rounding takes place after the scaling 
has been performed. 

INPUT - During F, E, D, and G input conversions, if the input string contains an 
exponent field, the scale factor has no effect. However, when the input string does not contain 
an exponent field, the value of the external field is scaled by 10"'; that is, the decimal point is 
moved left i places. The following examples indicate the effect of scaling during an input 
operation: 

External Field 

-71.436 



-71.436E00 



It can be seen that, on both input and output, if the external number has an exponent 
specified, it is equal to the internal value; if it does not, then 

external value = internal value x 10" 

Once a scale factor has been established during an input/output operation, it remains in 
effect throughout the operation, unless redefined by an additional P specification. To reset the 
scale factor to zero, it is necessary to write a OP specification, 
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Scale Factor 


Effective Value 


OP 


-71.436 


3P 


-.071436 


-IP 


-714.36 


3P 


-71.436 


-IP 


-71.436 
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/Specification (Record Separator) 

The form of the/ specification is 

/ 

Each slash (/) specified causes another record to be processed. In the case of contiguous 
slash specifications (i.e., ////. . ./), since no conversion occurs between each of the slash 
specifications, records are ignored during input, and blank records are generated during output 
operations. 

OUTPUT - Whenever a slash specification is encountered, the current record being 
processed is output, and another record is begun. If no conversion has been performed when the 
slash is encountered, a blank record is created. 

INPUT - The effect of slash specifications during input operations is similar to the 
effect for output, except that for input, records are ignored in the cases where blank records are 
created during output. 

Parenthesized Format Speci fications 

Within a FORMAT statement any number of specifications may be repeated by enclosing 
them in parentheses, preceded by an optional repeat count, in the form shov/n below. 

r(S^,S2,S3. ..,S^) 

where 

r is an optional, unsigned integer that indicates that the specification is to be repeated 
r times. When r is omitted, its value is assumed to be 1, 

S. is a FORMAT specification and 
I 

m >0. 

For example, the statement 

3 FORMAT (3(A3,F6.2,3X), 312) 

is equivalent to 

3 FORMAT (A3, F6. 2, 3X, A3, F6.2, 3X, A3, F6.2, 3X, 312) 

There is no limit to the number of repetitions of this form that can be present in a 
FORMAT statement. 

During input/output processing each repetitive specification is exhausted in turn, as is 
each singular specification. 

The following are additional examples of repetitive specifications: 
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Parenthesized Format Specification (Cont'd.) 

34 FORMAT (4X, 2(A8, X, IQ, 6.3), 14, 3 (D12.4,L5)) 

8 FORMAT (2(18, 2(3X, F12.9), F12.9), A16) 

In the latter example, repetitions are nested. Nesting of this type is permissible to; a 
depth of ten levels. 

The presence of parenthesized groups within a FORMAT statement affects the manner 
in which the FORMAT is re-scanned if more list items are specified than are processed the fi|-st 
time through the FORMAT statement. In particular, when one or more such groups have appeared, 
the rescan begins with the group whose right parenthesis was the last one encountered prior to the 
final right parenthesis of the FORMAT statement. A more complete discussion of this process is 
contained in Section 2-7, INPUT/OUTPUT STATEMENTS - Format and List Interfacing. 

Numeric Input Strings 

The permissible kinds of input strings that may be processed by numeric conversions -are 
exactly the same for F, E, D, and G conversion. Any field that can be read using one of th4se 
formats can be read using any of the others. In other words, numbers for input with E format need 
not have exponents, and numbers input with F format may have exponents. 

A numeric input string consists of a string of digits with or without a leading sign, d 
decimal point, and/or a trailing exponent. An exponent is normally specified as 

E±e 

where the plus sign is optional and e is a one- or two-digit number. The form ±e i^ also 
accepted (without the E), in which case the plus sign is not optional. Thus, a variety of forftis 
may be used to express data for numeric input: 



±n 


±n. m 


±n 


±.m 


±nE±e 


±n. mE±e 


±n.E±e 


±. mE±e 



±n±e ±n.m±e ±n.±e ±.m±e 

where the plus signs are optional except in an exponent field without an E. 

A D may be substituted for the E in an exponent field, with no change in meaning Or 
value. It is not necessary to indicate that data is double precision, nor is it necessary to us^ a 
D format. Regardless of the format used or the form exponent (if any), a numeric string^ will be 
converted with full double precision if the input list item to which it is to be assigned is double 
precision. 

Any numeric type of list item may be used with any numeric type of format specification, 
with the exception of I format. In this case the input field must contain an integer constant, refer 
to Section 2-3, DATA - Constants. 

Leading, embedded and trailing blanks are ignored. The field terminates only when the 
width specification is exhausted. 
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FORMAT and List Interfacing 

Formatted input/output operations are controlled by the FORMAT requested by each 
READ or WRITE statement. Each time a formatted READ or WRITE statement is executed, control 
IS passed to the FORMAT processor. The FORMAT processor operates in the following manner: 

1. When control is initially received, a new input record is read, or construction 
of a new output record is begun. 

2. Subsequent records are started only after a slash specification has been processed 
(and the preceding record has been terminated) or the final right parenthesis of 
the FORMAT has been sensed. Attempting to read (or write) more characters on 
a record than are (or can be) physically present does not cause a new record to 
be begun; on output the extra characters are lost, on input they are treated as 
blanks. 

3. During an input operation, processing of an input record is terminated whenever 
a slash specification or the final right parenthesis of the FORMAT is sensed, or 
when the FORMAT processor requests an item from the list and no list items 
remain to be processed. Construction of an output record terminates, and the 
record is written on occurrence of the same conditions. 

4. Every time a conversion specification (i.e., F, E, D, G, I, L, or A specification) 
is to be processed, the FORMAT processor requests a list item. If one or more 
items remain in the list, the processor performs the appropriate conversion and 
proceeds with the next field specification. (If conversion is not possible because 
of a conflict between a specification and a data type, an error occurs.) If the 
next specification is one that does not require a list item (i.e., H,X,P,T, or/), it 
is processed whether or not another list item exists. For example^ the statement 

WRITE (6, 12) 

12 FORMAT (///4HABCD) 

would produce three blank records and one record containing ABCD before 
reaching the final right parenthesis. When there are no more items remaining 
in the list and the final right parenthesis has been reached or a conversion 
specification has been found, the current record is terminated, and control is 
passed to the statement following the READ or WRITE statement that initiated the 
input/output operation. 

5. When the final parenthesis of a FORMAT statement is encountered by the FORMAT 
processor, a test is made to determine if all list items have been processed. If the 
list has been exhausted, the current record is terminated, and control is passed to 
the statement following the READ or WRITE statement that initiated tfie input/output 
operation. However, if another list item is present, an additional record is begun, 
and the FORMAT statement is rescanned. The rescan takes place as follows: 

a. If there are no parenthesized groups of specifications within the FORMAT 

statement, the entire FORMAT is rescanned. 
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FORMAT and List Interfacing (Cont'd.) 

b. If, however, one or more parenthesized groups do appear, theresoan is started 
with the group whose right parenthesis was the last one encountered prior to the 
final right parenthesis of the FORMAT statement. In the following example, the 
rescan begins at the point indicated: 



FORMAT (3X, (F7.2, A3), (3HABC (314, (G15.7//), A3)), E29. 12, 3HXYZ) 

rescan begins last Internal final right 

here closing parenthesis 

parenthesis of FORMAT. 

6, Each list item to be converted is processed by one specification or one iteration of 
a repeated specifi action, with the exception of complex data, which are processed 
by two such specifications. 

7. Each READ or WRITE statement containing a non-empty list must refer to a 
FORMAT statement that contains at least one conversion (see step 4 above) speci- 
fication. If this condition is not met, the FORMAT statement will be processed, 
but an error will occur. 

FORMAT - Stored in Arrays 

As mentioned previously, a FORMAT, including the beginning left parenthesis, the 
final right parenthesis, and the specifications enclosed therein, may be stored in an array. The 
FORMAT must be stored as a Hollerith string (i. e., a string of characters). The string may bjs 
"loaded" to the array by any of the methods that are normally used with numeric data. The 
FORMAT may also be stored in a scalar variable. This should be done only if the FORMAT is 
extremely short or if the ordering of other scalars (or arrays) is known (through EQUIVALENCE). 

The format need not be stored starting in the first element of the array, however, it must 
be stored in consecutive elements. If the FORMAT is not stored in the first element of the array, 
then the starting element must be specified as the FORMAT specification. 

Examples: 

FORMAT stored in scalar X: WRITE (6,X) list 

FORMAT stored in array A, starting in first element: 
WRITE(8,A) list or 
PRINT A, list 

Format stored in array FMT, starting at fifth element: 
READ (7,FMT(5) ) list 

Format stored in array WWW, starting at a calculated element: 
READ WWW(I-J+7), list 
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FORMAT - Stored In Arrays (Cont'd. ) 

if the variable M is an integer array, the following method may be used to store a FORMAT in M; 

M(1)-3H(F8 
M(2) - 3H. 5, 
M(3)- 3H3HS 
M(4) - 3HAM, 
M(5) - 3HI3) 

OR 

READ(K90) (M(I), I = 1,5) 
90 FORMiAT (5A3) 

External Input is: (F8. 5, 3HSAM,I3) 

Auxiliary Input/Output Statements 

The following set of statements enable the user to manipulate magnetic tapes and 
sequential disc files. 

REWIND Statement 



This statement Is expressed as: 

REWIND I 

where I is an integer variable or constant. 

Execution of a REWIND statement causes the units whose logical file number is the 
integer value I to be rewound, or repositioned to the beginning of the file. 

BACKSPACE Statement 



The BACKSPACE statement has the form: 

BACKSPACE i 

where i is an Integer variable or constant. 
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BACKSPACE Statement (Cont'd.) 

When a BACKSPACE statement is executed, the file referenced by the integer value of i 
is backspaced one logical record. In the case of binary tapes, a logical record may consist of 
more than one physical record. A logical record is interpreted as all the information output by 
one binary WRITE statement. Because of this, the BACKSPACE statement may not be used to 
backspace over binary records that have not been produced by a DC 6024 FORTRAN binary 
WRITE statement. 

REWIND and BACKSPACE statements that are executed for files already positioned at 
the beginning of the file have no effect. 

ENDFILE Statement 

This statement causes an end-of-file to be written on the specified file and has the form 

of: 

ENDFILE i 

where i is an integer variable or constant whose value determines the unit on which the 
end-of-file record is to be written. 

Sometimes it is desirable to take a program that has been written for output on magnetic 
tape and assign that logical unit number to some other device, such as a line printer. Since Such 
programs often write end-of-file and rewind their tapes at the end of the job, it is permissibly to 
specify an END FILE or REWIND operation on any device. Refer to the appropriate Gr:>erating 
system specification for the effect of these commands on various devices. 

OPEN Statement 
CLOSE Statement 

These statements are expressed as: 

OPENi PASSWD or OPEN i, PASSWD 

CLOSE i 

where i is an integer variable or constant whose value determines which file Is opened 
or closed. PASSWD is an optional 6 character name required to open files created with a pass- 
word. 

CALL EOFTST 

A subroutine, EOFTST, has been added to the library to allow the FORTRAt^l uver the 
ability to test for end-of-file. It is used as follows: 

CALL EOFTST (file number, $5tno) 
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CALL EOFTST (Cont'd.) 

Where the first argument is an integer variable, constant, or expression whose value is 
the logical file number to be tested, and the second argument is a statement number (preceded by 
$) indicating the statement to which control will be transferred if an end-of-file has been en- 
countered during the last READ. If no end -of -file was encountered, control is returned to the 
next sequential statement following the CALL. 

CALL SSWTCH 

A subroutine, SSWTCH, reads the status of the hardware sense switches. It is used as follows; 

CALL SSWTCH (number, status) 

where: 

number - is an integer variable or constant specifying which sense switch is to be tested. 

status - is an integer variable into which will be returned the value 1 if the sense switch 
is on, or 2 if the sense switch is off. 

CALL BTIME 

A subroutine, BTIME, reads the computer clock and saves the time. The routine is used 
as follows: 

CALL BTIME 

The routine has no arguments. 

CALL ETIME 

A subroutine, ETIME, reads the computer clock, computes the elapsed time since the last 
call to BTIME and outputs the time differential to the logical file assigned to the list out file in 
the following format: 

RUN TIME = XXHRS XXMIN XX. XXXOOOSEC 

List Output Carriage Control 

When formatted records are prepared for list output, the first character of the record is 
not printed. Carriage control for List Output is performed according to the first character of the 
record (see Table 2-5). 

Table 2-5. List Output Device Carriage Control Characters 



First Character 


Action before Printing 


"@" or "+" 


line advance 


"A" or "K" 


1 line advance 


"B" or "0" 


2 line advance 


"C" 


3 line advance 


"O" 


15 line advance 


"P" or "1" 


Channel 1 advance (Top of Form) 


"Q" 


Channel 2 advance 


"R" 


Channel 3 advance 


"W" 


Channel 8 advance 



The "+", "K"r "0" and "1" are generally honored. Only some Line Printers honor the 
complete list. 
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Input/Output Logical File Assignments 

The value of the parameter L in a READ or WRITE statement refers to a logical file to 
which various physical devices can be assigned. See "ASSIGN" statement in the appropriate 
operating system specification. The value of L is such that £L < 64. Table 2-6 lists the 
assignments usually associated with the value L. 

Table 2-6.. Logical File Assignments 



File 


File Name 


Assignment 


1 


Operator Communications 


Console typewriter 


2 




Console Tape Reader* 


3 




Console Tape Punch* 


4 


Binary Input 


High Speed Paper Tape Reader 


5 


Binary Output 


High Speed Paper Tape Punch 


6 


List Output 


Line Printer 


7 


Symbolic Input 


Card Reader 


8 


Symbolic Output 


Disc File 


* ROS, TOS and DOS Only. Will not operate with unformatted read/write. 



Random Access \/0 (Extended C o mpiler Only) 

This section applies only to those systems operating under disc oriented operating systems. 

FORTRAN random access ]/0 uses a fixed sector size of 112 words. The record length 
( L) in the define file statement determines the users record length and may be any integer value. 
Random \/0 packs or divides the users records into groups of 112 words, overflowing in the middle 
of the user's record to the next sector where necessary. This eliminates any wasted space on the 
disc. If L is 112, exactly one record per sector is read or written. If L is 28 four records are 
put in each sector. If L is 100, to get the second record will require one read for the first 12 words 
from the first sector and another read for the remaining 88 words from the second sector. If speed 
is essential to the user, it might help to make L some multiple or even divisor of 1 12, such as 2, 4, 
7, 8, 14, 16 28, 56, 112, 224, 336, etc. 
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DEFINE FILE Sfatement 

General Form: 

DEFINE FILE a^ (m^,L^, U, vp,a2 (m2, l^, U, Vj) 

or: 

DEFINE FILE a^ (m^, L^, V|), Qj (mj, L2, V2) 

where: 

a is an integer variable or constant corresponding to the logical file to be used. (Note 
that DMS and DOS logical file numbers are assumed to be octal values, hence a value of a = 14 is 
equivalent to DOS logical file number I^q). 

m is an integer variable or constant that defines the maximum record number in this 
file. The record number may vary from to and including m. 

L is an integer variable or constant that defines in words the length of each record in this file. 

U is a fixed letter. This parameter may be omitted completely. DC 6024 FORTRAN 
accepts it merely for compatibility with other systems. 

V is an integer variable name. This variable is set to the next available record number 
at the conclusion of each READ or WRITE statement. 

NOTE: The DEFINE FILE statement must be executed prior to any READ, WRITE, or 
FIND statement referencing that file. 

Disc \/0 Statements 



General Form: 

READ (a' b) list 

WRITE (a' b) list 

FIND (a' b) 

where: 

a is an integer variable or constant corresponding to the logical file number, 

b is an integer variable or constant corresponding to the record numbsr where transmittal 
will start and its value may vary from to and including m and list is any FORTRAN l/O list. 

list is a standard I/O list. 
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Disc l/O Statements (Cont'd.) 

Example: 

Assume a disc file exists containing descriptions of items. The record number in the 
file corresponds to the item number. The following program reads a card containing the item 
number, reads the record from disc and prints the item number and description on the line 
printer. The file data will be input as unformatted data, and output via a BUFFER OUT 
Statement (the data is assumed to be packed 3 characters/ word). 
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Random Access ]/0 - Disc ]/0 Statements 

Note that file number and record number are separated by an apostrophe. No data 
conversion is done on information transmitted via ifiese statements. 
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ENCOD^DECODE Statements 

The Encode/Decode statements provide memory-to-memory data conversion capability. 
The statements operate on an input/output list, a format statement and a program -defined internal 
buffer area. 

The Encode statement is analogous to a WRITE statement and the Decode statement is 
analogous to a READ statement. 

The statements take the form: 

ENCODE 

(n,f,a) L 
DECODE 

where: 

n = number of characters in the buffer. 

f = the FORMAT statement number or the name of the array or the array element or 
the scalar variable which contains the format statement. 

a = the "buffer" which contains the record to be ENCODE'd or DECODE'd. The 
buffer must be an array name, an array element, or a scalar variable. The 
record begins with the left most character position of "a" and continues for 
"n" characters. 

L = List 

There are 3 ANSCII characters per word. 

Examples: 

ENCODE(3, 7, BUF) list 

DECODE (28, IFMT, JBUF(27) list 

DECODE (6, 13, XYZ) list 

ENCODE (NUM, ALPHA( I ), BETA( (I+7)/3) list 

where: 

BUF, JBUF, and BETA ore data buffer arrays, XYZ is a real variable 

IFMT is an array containing a format 

ALPHA is an array containing a format at the Ith element. 
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ENCODE/DECODE $tatement«; (Conf d.) 

The ENCODE statement will transfer the list elements into the internal buffer while 
performing the specified format conversion. 

The following example illustrates the action of the ENCODE statement. The data 
from arrays X and K are encoded into array MK. The example shows the arrangement of the 
character string in MK. 















































































































SHEE 


I 








OF 








' 1 


Daiaarart Fortran cooing form 




IDENTIFIC4IICN 








7 3 60 




12 14 


6 TTt I 


« 10 


II 


It 


1] 


14 


15 


l( 


17 


li 


II 


20 


21 


It 


2) 


24 


25 


2( 


27 


21 


2* 


JO 


31 


32 


33 


34 


35 


3« 


37 


'• 


39 


40 


41 


42 


43 


44 


45 


4C 


47 


41 


49 


50 


SI 


52 


53 


54 


55 


5C 


57 


51 


59 

- 


«0 


61 


62 


63 

H 


" 


65 


B6 


67 


68 


69 


70 


71 


n 


71 74 75 


76 


77 7^ 79 80 




IPX 


ML 


IL 


S 


I 


Q 


4 


- 


X 


t 


4 


) 


t- 


1^ 


L 


k 


1 


*- 


M 


K 


L 


I 





) 
























































- 




- 


- 


- 






c 


i 


































































I 
1 


e F? 


lI ^ 


^ 


M 


ti 




K 










































































- 
















"- 




— 


H-. .. 


: 


& 




























































-1 


















" 




- 


- 




.... 


- 


„. 














1 


i 




w 


= 


i 




d 




































- 






















lJ 


c 


3 




i 


4 


M 


L 
































































































il 




L^ 


r 


1 


c 





« 


L 






















































































-. 


- 






- 


- 




























t 4 






1 1 




















































































































£ 


|E|i 


Cl» 


e 


E 




\^ 


(. 


I 


i 


♦^ 


^ 


i 


h 


} 


*H 


t 


c 


> 


) 


t- 


!C 


IL 


L 


X 


f- 


^ 


t 


1 


i 


- 


h 


H 


fl 


- 


^ 


L 


3 


) 




















































-" 




- 


-- 


































































LL 


« 


Ei 
E 


X 


I 


T 


^- 


I 





*■ 


M 


K 


) 


i 


X 


i 


L 


1 


i- 


1. 


« 


L 


/- 


\ 


\ 


f 


L 


JC 


L 


t 


\ 


*- 


L 


3 


1 


i- 


2 


^ 
^ 
































































m/s 
























- 


- 






- 






























21 




KM 


M 


T 


c 


3 


F 


7 


, 


2 




1 


I 


4 


) 








































































- 




- 


... 


' 


■ 






-- 


-- 


- 


-' 








D 
























































































































































































- 








- 


- 


- 




-■ 






- 






-- 


- 


'- 














X(i) 


* yi-* 


14 








i- 


5 


^ 


( 


a 


ft] 


k 












a 


K 


L 


i 

3 




e 




9 


t 


i 


- 




- 










- 


- 


















- 1^ ■ 


16 












^ 




























- 












• il • 


^^ 


! 
































( 


























































<{i\ 


■MXff 


f 




































1 


4 
S 






^ 


^ 




















































- 






- 


- 


: 


■ 


.,- 


-■ 


- 


.. 














Ut 


>Hj^. tf 


^ 


































( 








z 


8 


I 
























- 










T- 


- 


-^ 


- 




~ 












KLll 


'iit 


s 


^^ 






1 
























( 


dJ 








i 


1, 


9 
























-" 


— 


- 


-- 


. 




M 




— r "• I ; y 1 






















( 


7 


) 






• 


\ 


2 
















































_i 


' ; i ! 1 
























8 


) 






^ 


i 


a 
























- 
























„ 




- 




- 




-. 


_ 


„. 






1 






' ; 




















\^ 








^ 


t 


2, 




















































M i 




M 






















l 


C 








9 





A 
























































.11,. 




















1 


). 


i 








"S 


9 


zr 


















































- 
















































1 






























31 












37 


31 












































72 


73 


1" 


76 


7 7 7JJ79 80 


1 |2 J |« 


i i T S 


9 10 


± 


1 


14 


^ 


<r 


': 


,9 


20 


21 


22 


23 


24 


25 


26 


27 


It 


29 


30 


32 


" 


34 


35 


3C 


39 


40 


41 


42 


43 


44 


45 


4S 


47 


41 


4, 


50 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 


62 


63 


64 


65 


66 


67 


66 


69 


70 


71 



The DECODE statement will transfer the list elements from the internal buffer arda to 
the variables specified in the list while performing the conversion specified in the format state- 
ment. 

The DECODE feature permits the program to read the card (or other input record) more 
than once. For example, if a card deck consists of randomly mixed alphabetic, alphanumeric and 
numeric data cards, it is possible to determine, via a DECODE statement, what format conversion 
is required for the card just read. The following example has provision for one of each type card, 
input in any order. 
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2-7 INPUT/OUTPUT ( CONT' D. ) 

ENCODE/DECODE Statements (Cont'd.) 

Example: The card formats are: 

ALPHA First character will always be X. Format will be 27A3 

ALPHA- First character will always be A. Format wi II be 13A3, 3F7. 2,415 

NUMERIC 

NUMERIC First character will be blank, sign or digit. Format will be 4F10.3, 1014 
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ASYNCHRONOUS INPUT/OUTPUT (Extended Compiler Only) 



The asynchronous input/oufput feature provides a method of performing double buffered 
input/output operations in either a symbolic or binary mode. 

There are three statements which implement this function. They are: 

BUFFER IN 



BUFFER OUT 


(u,a,m,w,s,n) 


CALL STATUS 


(u) 


here: 





u is the logical unit number 

a is an array name, an array element, or a scalar variable specifying the starting 
address for the operation. 

m is the mode of operation 

S = Symbolic 
B = Binary 

w specifies the number of words to be input or output (in the symbolic mode 

3*w characters will be transferred) 

s is an integer variable which will be set by a call STATUS request. 

NOTE 

Under DMS and VULCAN operating systems, the 
value of S = 1 will never occur. A call to the 
STATUS routine will cause the system to wait for 
I/O completion before returning to the user 
program. 

The variable s Is set as follows: 

S = 1 operation Incomplete 

S = 2 successful completion 

S = 3 EOF encountered 

n is an optionally present Integer variable which will be set with the actual number 
of words transferred when the operation Is completed. 

Examples: 

BUFFER IN (8, BUF,S, NUM, ISTAT, IWORDS) 
BUFFER OUT (LFN, IBUF,B,n2,JSTAT) 
BUFFER OUT ("17,JBUF(I-J+3), B,N,II) 
BUFFER IN (3,KBUF(5),S,KK,LL) 
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2-7 INPUT/OUTPUT (CONT'D.) 



ASYNCHRONOUS INPUT/OUTPUT (Extended Compiler Only) (Cont'd.) 

The BUFFER IN/ BUFFER OUT statements permit processing, both on input and output, 
records of arbitrary length and format, without regard to the usual restrictions. It permits com- 
plete program control of the data and enables such functions as: interpretating binary tapes 
produced on other machines or by other programs, reading and writing binary cards, and in 
conjunction with the ENCOD^DECODE functions, processing long formatted records. 

Example: 

Read a binary tape (9 track, 3 C/W, 800 bpi) of variable length records none of 
which exceeds 500 words, terminated by End-of-File. 

The program will output the records 15 words per line in decimal. Each record 
printed will be preceded by the record length. After all records have been printed, the 
number of records in the file will be printed. 




DatacTcift 



FORTRAN CODING FORM 



; 2 3 ! 4 ' 5 6 ' I 9 'C 






!7J2lJz» 



4--.^ i-.^-* 



kftUL..-UL. 



-4 4-4--^ 



*MINJL .It 

9^..^..^ 

' JMiC«.ie ^" ^ '.,--. : ^-^^-^ 



_^ — L_...j |„.J__ 



4'"i'"J*'l'°P' ' '^"r 






-+-1~ 



.4-^4.- i +-!-*- 




■ ■ -h-t 



rJiJfI.JC+.JL 

1 TO. & 



4 H-J.-. 4 ^ -4 



^_iCAuL mxx i^ ^1 ' 



■ t4 



S9 ec s 6? e: 



It" 
.,4-4-4. 

1-44 



:t::T:zH4il 



44-4 






r-4-4--4--4 ,_.|_., I-..- 



4--t +-4- 






I , : ■ 



-f-t ---+- 



44-t4-l- 



H-JH4-4-- 

Uc^s|f!^jri6'ii:n}::4ii- ■ 

4- [4-. .-4- 



■ I 
-t-t- 



4:4' 



— ^- . 



— — '1--M-t ■ 



4-44-4- 



-r^-ttr 



;6 r- :ii ." if!! iiJii.vMl.ssIieli'lsili'ilioK ^4.'' " 44|4'-|46i«-:4«T4<ii-.irh: ,>':"i'' 



4-- 



ij. 



64|6 



lOlNTIt'Cl'lCK 



-rrt 



- 4-4-h 



74 7S|76 77 78 7' 



M^-tr 



-Hji 



44- 



4 -• 



1,4 









'Li-rjrr^ 



:2t 



Example: 

A fest program to generate the binary tape used in the preceeding example. 
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2-7 INPUT/OUTPUT ( CONT' D. ) 



ASYNCHRONOUS INPUT/OUTPUT (Extended Compiler Only) (Cont'd.) 
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2-8 DECLARATION STATEMENTS 

Declaration statements are used to define the data type of variables and functions, the 
dimensions of arrays, storage allocation, initial values of variables, and to provide similar 
information. 



Classification of Identifiers 



An identifier may be classified oi referring to any of the following: 

scalar 

array 

subprogram 

dummy 

COMMON block 
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2-8 DECLARATION STATEMENTS (CONT' D.) 

Classification of Identifiers (Cont'd.) 

The category into which an identifier is placed and the type (if any) associated with 
it depend on the contexts in which the identifier appears in the program. These appearances 
constitute explicit or implicit declarations of the v^y the identifier is to be classified. 

Implicit Declarations 

Unless specifically declared to be in a particular category or type, identifiers that 
appear in executable or DATA statements are implicitly classified according to the following 
set of rules. 

1. When applicable an identifier is integer if it begins with J, J, K, L, M,or N. If 
it begins with any other letter, it is real. 

2. An identifier that is called with a CALL statement is a subprogram. 

3. An identifier that appears in an expression, followed bv an argument list 
enclosed in parentheses, is a subprogram, unless it has been explicitly declared 
as an array. 

4. An identifier that appears to the left of an equal sign, followed by a dummy list 
enclosed in parentheses, is a statement function definition if it also compiles 
with the rules given in Section 2-9 "PROGRAMS AND SUBPROGRAMS - 
Statement Functions". Otherwise it is an error. This does not apply to 
declared arrays. 

5. Any other appearance of an identifier in a executable or DATA statement (i.e., 
other than followed by a left parenthesis or in a CALL statement) causes it to be 
classified as a scalar variable. 

6. An Identifier that appears in no executable or DATA statement, but does appear 
In a COMMON or EQUIVALENCE statement, is classified as a scalar variaiDle 
unless explicitly declared as an array. 

7. Intrinsic and basic external library functions have an Inherent lype associated 
with them, as shown In Table 2-8, Library Functions. Inherent type is not 
equivalent to implicit type. Section 2-9 contains a complete description of 
library functions. 

Explicit Declarations 

All other declarations are explicit declarations. Explicit declarations are required in 
order to classify an Identifier In any way other than those described above. Explicit declarations 
include: 

array declarations 
type declarations 
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2-8 DECLARATION STATEMENTS (CONT' D.) 

Explicit Declarqtlons (Cont'd.) 

storage allocation declarations 
subprogram declarations 
subprogram definitions 

Explicit declarations override implicit declarations. They must precede the first 
executable or DATA statement of the program. 

Conflicting and Redundant Declarations 

Except where specifically noted to the contrary, definitions and declarations of the 
classification of an identifier may not conflict. For example, an identifier may not be both a 
subprogram name and an array name, both integer and real type, defined as a subprogram in 
more than one place, etc. 

Array Declarations 

Array declarations explicitly define an identifier as the name of an array variable and 
have the form: 

V, (d,), V2(d2), V3(d3),...v^(d^) 
where: 

each V- is the identifier of the array, and 

each dl is a set of 1, 2, or 3 integer constants separated by commas. 

Examples: 

X(10) 

ARRAY (5,15,10) 

PLANE (25,25) 

CUBE (10,10,10) 

LINE ( 14000) 

When V Is a dummy array in a subprogram, the d; may be integer variables in-^tead of 
constants (see Section 2-9, PROGRAMS AND SUBPROGRAMS - Adjustable Dimensions). 

Array declarations may appear in 

DIMENSION statements 
Explicit type statements 
COMMON statements 
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2-8 DECORATION STATEMENTS (CONT'D.) 



Arrqy Storage 

Although an array may have up to three dimensions, It is placed in storage as a linear 
string. This string contains the array elements in sequence ( from low address storage toward 
high address storage) such that the leftmost dimension varies with the highest frequency, the 
next leftmost dimensions varies with the next highest frequency, etc., i.e., 2-dImensional 
arrays are stored "column-wise". Figure 2-2 contains a pictorial example of array storage. 





array A (3, 3, 2) 


Item 


Element 


1 


A( 1,1,1) 


2 


A(2,l,l) 


3 


A(3,l,l) 


4 


A(U,1) 


5 


A( 2,2,1) 


6 


A(3 2,l) 


7 


A( 1,3,1) 


8 


A( 2,3,1) 


9 


A( 3,3,1) 


10 


A( 1,1,2) 


11 


A(2,l,2) 


12 


A(3,l,2) 


13 


A( 1,2,2) 


14 


A( 2,2,2) 


15 


A( 3,2,2) 


16 


A( 1,3,2) 


17 


A( 2,3,2) 


18 


A(3,a2) 



Figure 2-2. An Example of Array Storage for an Array Defined as A( 3,3,2) 

Reference to Arr ay Elements 

Reference to array elements must contain the number of subscripts that correspond to 
the number of dimensions declared for the array (except as discussed for EQUIVALENCE 
statements). References that contain an incorrect number of subscripts are treated as errors. 



2-66 



Revision B 
January, 1976 

2-8 DECLARATION STATEMENTS (CONT' D. ) 

Reference to Array Elements (Cont'd. ) 

Furthermore, the value of each subscript should be within the range of the corresponding 
dimension, as specified in the array declaration. Otherwise, the references may not be to data 
belonging to the set of elements that comprise the array. 

DIMENSION Statement 



This statement is used only to define the dimensions of arrays and has the form: 

DIMENSION Vw vo, v^,. . . ,v 
I z J n 

where: v. are array declarations. 

A DIMENSION statement does not affect the type or allocation of the arrays declared. 

Example: 

DIMENSION MGO (16), LTO (14), BB (36, 22, 34) 

IMPLICIT Statement 

These statements are used to define, implicitly, the type of an identifier by the fii*st 
letter of the identifier. The IMPLICIT statement has the following form: 

IMPLICIT E,, E«,...E 
I z n 

where each E. is a specification of the form: 

type S^,S2,...S^ 

where type is one of five declarations: INTEGER, REAL, DOUBLE PRECISION, 
COMPLEX, or LOGICAL. And each S. is a specification of the form: . 

(ii,i2'...g 

where each I- is either a single letter or Is a range of letters Iq - I|^ where lb 
alphabetically follows Iq. 

Only the identifiers beginning with the first letter in an IMPLICIT statement are dffected 
by the retyping. The typing of intrinsic, basic external functions or explicitly type identifiers 
are not affected by the IMPLICIT statement. The letters I, J, K, L, M and N are typed as 
INTEGER unless implicitly typed otherwise by an IMPLICIT statement. 

An IMPLICIT statement may only be preceded with a program unit by a NAME, 
SUBROUTINE, FUNCTION, another IMPLICIT statement or a comment card. 

Examples: 

IMPLICIT INTEGER (A-D,E,Y,X),(Z) 

IMPLICIT REAL (I),(M-Q),(B) 

Identifiers beginning with the letters A,C-H,J-L,X-Z are typed as INTEGER. 
Identifiers beginning with the letters B,F-I,M-Ware typed as REAL. 
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Storage Allocation Statements 

Thes<5 statements are used to arrange variable storage in special ways, as required by 
the programmer. If no storage allocation information is provided, the compiler allocates all 
variables within the program in the order in which they appear. The storage allocation state- 
ments are: 

COMMON statement 

EQUIVALENCE statement 

Allocation of Variable Types 

To make proper use of the storage allocation statements, it is necessary to know the 
amount of storage required by each type of variable. Table 2-7 indicates the size associated 
with each type. 

Table 2-7. Storage Allocation Requirements 



Type 


Words 


Integer 


1 


real 


2 


double-precision 


2 


complex 


4 


logical 


1 



COMMON Statement 

The COMMON statement is used to assign variables to a region of storage called 
COMMON storage. COMMON storage provides a means by which more than one program or 
subprogram may reference the same data. 

The COMMON statement has the form: 

COMMON Wi, Wo/Wo . . . w 
12 3 n 

where: 



w. has the form 
I 



/c/ 



^2' ^ 



3,... 



m 
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COMMON Statement (Cont'd.) 



w 



here: 



c is either the identifier of a labeled COMMON block, or is absent, indicating blank 
COMMON, and 

V. is a scalar or array name or array declaration. 

When w] (the first specification in the statement) is to specify blank COMMON, the 
slashes may be omitted. In all other places, blank COMMON is indicated by two consecutive 
slashes. For example: 

COMMON MARKET, SENSE / GROUP3/X, Y, JUMP// GETIT, COLD 

For each specification (w;), the variables listed are assigned to the indicated COMMON 
block or to blank COMMON. The variables are assigned in the order they appear. Thus in the 
above example MARKET, SENSE, GETIT, and COLD are assigned to blank COMMON, while 
X, Y, and JUMP are placed in labeled COMMON block GROUPS. 

Labeled COMMON 



Labeled COMMON blocks are discrete sections of the COMMON region and as such 
are independent of each other and blank COMMON. 

Any labeled COMMON block may be referenced by any number of programs or subprograms 
which comprise an executable program (see Section 2-9). References are made by block name, 
which must be identical in all references. All labeled COMMON blocks need not be defined 
in any one program; in fact, only those blocks containing data needed by the program require 
definition. 

The variables defined as being in a particular labeled COMMON block do not 
necessarily have to correspond in type or number between the programs in which the block Is 
referenced. However, the definition of the overall size of a labeled COMMON block must 
be identical in all the programs in which it is defined. For example: 

SUBROUTINE A SUBROUTINE B 

REAL T, V, X ( 10) COMPLEX G, F(5) 

COMMON /SET ]/T, V, X COMMON /SET 1/G, F 



Both references to the COMMON block SETl correspond in size. That is, both sub- 
programs define the block SETl as containing 24 words; the definition In subroutine A specifies 
12 items of real type, and the definition in subroutine B declares 6 items of complex type. 
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Labeled COMMON (Cont'd.) 

Reference may be made to the name of a labeled COMMON block more than once in 
any program. A multiple reference may occur in a single COMMON statement, or the block 
name may be specified in any number of individual COMMON statements. In both cases the 
processor links together all variables, defined as being in the block, into a singfe labeled 
COMMON block of the appropriate name. 

Block names must be unique with respect to 

1. Subprogram names defined, explicitly or implicitly, to be external references 
(see Section 2-8, DECLARATION STATEMENTS -External Statement). 

2. Other block names 

A labeled COMMON block may have the same name as an identifier in any 
classification other than the above; however, it is usually preferable to choose block names 
that are totally unique. 

Blank COMMON 

There is only one contiguous area of memory assigned to blank COMMON, and empty 
block name specifications always refer to it. Furthermore, as opposed to labeled COMMON, 
blank COMMON areas^ defined in the various programs and subprograms that comprise an 
executable program (see Section 2-9), do not have to correspond in size. The only restriction is 
that the first blank COMMON definition in a set of programs and subprograms to be linked must 
be the largest block (DOS, TOS, ROS systems only). 

References may be made to blank COMMON any number of times within a program. 
The multiple references may occur in a single COMMON statement or in several COMMON 
statements. In either case, all variables defined as being in blank COMMON will be placed 
together in the blank COMMON area. All COMMON statements must occur prior to the 
first executable or DATA statement of a program. 

Variables in blank or labeled COMMON may not be initialized by the DATA statement 
except in a BLOCK DATA subprogram (see Section 2-9, PROGRAMS AND SUBPROGRAMS - 
BLOCK DATA Subprograms). 

Arrangement of COMMON 



Each labeled COMMON block and the blank COMMON area contain, in the order of 
their appearance, the variables declared to be In the labeled block or the unlabeled area. The 
variables in each section of the COMMON region are arranged from low address storage towards 
high address storage. That is, the first variable to be declared as being in a particular section 
is contained in the low address word or words of that section, while the last variable to be 
declared as being in the section is contained in the high address word or word;; of the section. 
Array variables are stored in their normal sequence (see Section 2-3, DATA - Arrays in Storage) 
within the COMMON block. For example, the statements: 
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Arrangement of COMMON ( Cont' d. ) 

COMMON /EAV, X(3,3)//L B, Q /E/ J 

COMMON K,M/E/Y//C(4),H,N(2),Z 

cause the following arrangement of COMMON; 



Item 

1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 



Block E 
W 

x(U) 

X(2,l) 

X(3,l) 

X(12) 

X(2,2) 

X(3,2) 

X(13) 

X(2,3) 

X(3,3) 

J 

Y 



Blank COMMON 

T 
B 
Q 
K 

M 

C(l) 

C(2) 

C(3) 

C(4) 

H 

N(l) 

N(2) 

Z 



Note that, since a segment of the COMMON region may be defined differently in 
each program, it may be quite important to be aware of which items in a segment contain certain 
variables. 



For example: 



SUBROUTINE CAT 



SUBROUTINE PIG 



SUBROUTINE DOG 

COMMON /S/A,C,B ( 100) COMMON /S/A,X (51) COMMON /S/ALPHA (52) 

COMMON /S/Y ( 50) COMMON /S/Y ( 50) 
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DECLARATION STATEMENTS (CONT'D. ) 



Arrangement of COMMON (Cont'd. ) 

will define the block S as follows: 
Item DOG CAT 



PIG 



1 


A 


A 


ALPHA (1) 


2 


C 


X(l) 


ALPHA (2) 


3 


B(l) 


X(2) 


ALPHA (3) 



52 


B(50) 


X(51) 


ALPHA (52) 


53 


B(51 


X(l) 


Y(l) 


54 


B(52) 


Y(2) 


Y(2) 



102 



8(100) 



Y(50) 



Y(50) 



which allows the routines DOG and CAT to access the variable A by that identifier, the 
routines CAT and PIG to access the array variable Y by that identifier, and yet the integrity of 
the block S is maintained. (These examples assume A, B, C, X, Y, and ALPHA are of the same 
type. ) 

MONITOR COMMON Statement (VULCAN compiler only) 

The MONITOR COMMON statement is used to declare a labelled common block to be 
a MONITOR COMMON block. A MONITOR COMMON block Is a specialized type of file 
which can be randomly and simultaneously referenced by several users in a mu I ti -programming 
environment, (See VULCAN system reference for a more detailed description. ) 

The form of the statement is: 

MONITOR COMMON c^, C2, c^, . . . c^ 

where each c. is the name of a common block which is to be typed as a MONITOR 
COMMON block. (The name is not enclosed within slashes. ) 

There may be any number of MONITOR COMMON statements within a program. Any 
common block referenced within a MONITOR COMMON statement must also be defined within 
a regular COMMON statement, however, It need not be defined prior to the MONITOR 
COMMON statement. 
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MONITOR COMMON Statement (VULCAN compiler only) (Cont'd.) 

Examples: 

MONITOR COMMON BLOCK!, BLOK2,BLOK3 
MONITOR COMMON ABC 

SPECIAL COMMON Statement (VULCAN compiler only) 

The SPECIAL COMMON statement is used to declare a common block to be a SPECIAL 
COMMON block. A SPECIAL COMMON block is allocated at or above 65K (200000o) within 
the users logical address space. SPECIAL COMMON blocks may extend to the full addressable 
space within the user's logical address space (256 Kiq = lOOOOOOg words). 

When a common block is declared to be a SPECIAL COMMON block, then the code 
generated to reference data within this common block is automatically modified to correctly 
access the data. There is no further effort necessary on the part of the user. In particular, the 
"L" option is not necessary to reference this data, however, it may be used if other data not iin 
SPECIAL COMMON but above 32K is to be accessed. (See Paragraph 3-4 for a further discussion 
of compile time options. ) 

The form of the statement is: 

SPECIAL COMMON c^, C2, c^, . . . c 

where each c; is the name of a Common Block (or null if blank common is intended) 
which is to be typed as a SPECIAL COMMON block. (The name is not enclosed 
with slashes. ) 

There may be any number of SPECIAL COMMON statements within a program. Any 
common block referenced within a SPECIAL COMMON statement must also be defined within a 
regular COMMON statement, however, it need not be defined prior to the SPECIAL COMMON 
statement. 

Examples: 

SPECIAL COMMON BLOKA, BLOKB, BLOKC 

SPECIAL COMMON XYZ 

SPECIAL COMMON (Blank common) 

EQUIVALENCE Statement 



The EQUIVALENCE statement controls the allocation of variables relative to one another. 
Generally, it is used to assign more than one variable to the same storage location or locations. 
It is expressed as: 

EQUIVALENCE s^, S2, S3, . . . , s^ 

where: each S| is an equivalence set of the form 

(vv V2, V3, ..., v^) 

Each equivalence set specifies that all of the v; are to be assigned the same storage 
location. The v; may be a scalar name or an array element. As an example: 

2-73 



2-8 DEC LARATION STATEMENTS ( CONT' D. ) 

EQUIVALENCE Statement (Cont'd. ) 

REAL B, C, A(3,3), X(4,3,2) 

EQUIVALENCE (A(l,3), B), (C, X( 2,1,2)) 

would make B and A( 1,3) equivalent, and, similarly, C and X(2, 1,2) equivalent. 

The EQUIVALENCE statement also permits an element of a multi -dimensional array to 
be expressed as its equivalent single dimensioned subscript value as defined by the "Array 
Element Successor Function" which states that: 

M(i,j,k) = M(i 4-A(j-l)+A.B.(k-l)) 

where i, j, and k are subscript expressions, and A and B are declared dimensions of the 
array M (A, B, C) 

For example, the following statements effect the same equivalence as in the previous 
example: 

REALB, C, A(3,3), X(4,3,2) 

EQUIVALENCE (A(7), B), (C, X( 14)) 

EQUIVALENCE references to variables of a type which occupy other than one >M3rd 
per element (e.g., complex) are interpreted as referring to the first word of the first element. 
The effect of the statements: 



INTEGER M( 8) 










REALA(4) 










COMPLEX Z(2) 










EQUIVALENCE (M(l), 


A(i: 


►, Z( 1)) 






is to cause the indicated equivalence: 






Word 






Variables 




1 




M(l) 


A(l), 


Z( I)r, 


2 




M(2) 


A(l)2 


Z( l)r2 


3 




M(3) 


A(2), 


Z(I)i, 


4 




M(4) 


A(2)2 


Z(I)i2 


5 




M(5) 


A(3), 


Z(2)r, 


6 




M(6) 


A(3)2 


Z(2)r2 


7 




M(7) 


A(4), 


Z(2)i, 


8 




M(8) 


A(4)2 


Z(2)i2 
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EQUIVAIINCE Statement (Cont'd.) 

No storage allocation declaration is permitted to cause conflicts in the arrangement of 
storage. Each COMMON, and EQUIVALENCE statement determines the allocation of the 
variables referenced in them. Therefore, no EQUIVALENCE set should contain references to 
more than one variable which has previously been allocated, and COMMON statements should 
contain references to any variable that has previously been declared to be in COMMON. 

In an EQUIVALENCE statement, an unsubscripted array name appearing as an element 
of an equivalence group has the same effect as specifying the first element of that array. 

Example: 

DIMENSION A(]0, 10), B (50) 

EQUIVALENCE (A, B (20)) 

has the same effect as: 

DIMENSION A( 10, 10), B (50) 

EQUIVALENCE (A ( 1,1), B (20)) 

COMMON and EQUIVALENCE Interactions 



In all cases, the storage allocation sequence specified in a COMMON statement takes 
precedence over any EQUIVALENCE specifications. Consequently, EQUIVALENCE statements 
are not allowed to define conflicting allocations of COMMON storage. 

Storage allocation of arrays by use of the EQUIVALENCE statement may vary, depending 
upon whether or not the arrays are in a COMMON block. For example, if two arrays (not in 
COMMON) are equivalenced: 

DIMENSION A(3), B(5), C(4) 

EQUIVALENCE (A(3), C(2)) 

storage allocation is assigned as follows: 
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COMMON and EQUIVALENCE Interactions (Cont'd.) 
Item Variable 



1 A(l) 

2 A(2)-C(l) 

3 A(3) = C(2) 

4 C(3) 

5 C(4) 

6 B(l) 

7 B(2) 

8 B(3) 

9 B(4) 
10 B(5) 

However, If the arrays are in common: 

COMMON A( 3), B(5) 

DIMENSION C(4) 

EQUIVALENCE (A(3), C(2)) 

The array C is equivalenced as expected, but the original ojlocatiori specified by the 
COMMON statement is not disturbed: 

Item Variable 

1 

2 
3 
4 
5 
6 
7 
8 

The above examples assumes all variables are of the same data type. 



A(I) 




A(2) = 


= C(I) 


A(3) = 


= C(2) 


W) = 


C(3) 


B(2) = 


= C(4) 


B(3) 




B(4) 




B(5) 





2-76 



2-8 DECLARATION STATEMENTS (CONT'D.) 

COMMON and EQUIVALENCE Interaction (Cont'd.) 

It is permissible for an EQUIVALENCE to cause a segment of a COMMON block to be 
lenghtened beyond the upper bound established by the last item defined to be in that block. 
However, it is not permissible for an EQUIVALENCE declaration to cause a block to be lengthened 
beneath the lower bound established by the first item declared to be in that block. Both conditions 
ar« demonstrated in the examples below: 

COMMON /BLK1/A( 5), B/BLK2/E (4), H, Y(4) 

DIMENSION Z(10), V(5) 

EQUIVALENCE (A(l), Z(l)), (V(4), E(2)) 

The first EQUIVALENCE set is a permissible extension of the block BLKl, whereas the 
second set illegally defines an extension of the block BLK2. The declared storage allocation 
would appear as shown below: 

Item BLKl BLK2 (illegal extension) 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



assuming all items are of the same datatype. 





V(l) 




V(2) 


A( 1) = Z( 1) 


E(1) = V(3) 


A(2) = Z(2) 


E(2) = V(4) 


A(3) = Z(3) 


E(3) = V(5) 


A(4) = Z(4) 


E(4) 


A(5) = Z(5) 


H 


B = Z(6) 


Yd) 


Z(7) 


Y(2) 


Z(8) 


Y(3) 


Z(9) 


Y(4) 


Z(10) 
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EXTERNAL Stafement 

The EXTERNAL statement has the form: 

EXTERNAL p^, P2' P3' • ' *' Pn 

This statement declares that the identifiers listed are subprogram identifiers so that they 
may be referenced externally. 

The practical use of the EXTERNAL statement is that it declares, as subprograms, names 
which might otherwise be classified implicitly as scalars, so that they may be passed os arguments 
to other subprograms (see Section 2-9, PROGRAMS AND SUBPROGRAMS - Arguments and 
Dummies). For example. If the subprogram name F appears in the statement 

CALLALPHA(F) 

but appears in no other context to indicate that it is a subprogram, it v/ould be implicitly 
classified as a scalar. The EXTERNAL statement is used to avoid this. 

DATA Stateme nt 

The DATA statement has the form: 

DATAS^, S2, S3, ..., S^ 

where: 

S. is a data set specification of the form 
I 

variable-list/ constant-list/ 

The primary purpose of the DATA statement Is to give names to constants; instead of 
referring to e as 2.71828 at every appearance, the variable e can be given that value with a 
DATA statement and used instead of the larger form of the constant. This also simplifies modifying 
the program, if a more accurate value is required. 

Giving e a value with a DATA statement is somewhat different from giving it a value 
with an assignment statement. With the DATA statement, the value is assigned when the program 
is loaded, whejreas with the assignment statement. It is done at execution time. 

The effect of the DATA statement Is to initialize the variables in each data set to the 
values of the constants in the set, in the order listed. For example, the statement 

DIMENSION IA(2) 

DATAX, J, 1/3.5,7, . TRUE./,ALPHA/9/,lV6HABCDEF/ 

is equivalent to the assignment statements 



2-78 



2-8 DECLARATION STATEMENTS (CONT'D.) 

DATA Sfgtements (Cont'd. ) 

X = 3.5 

J = 7 

L = . TRUE. 

ALPHA = 9 

IA(1) = 3HABC 

IA(2) = 'DEF' 

except that the DATA statement is not executable; its assignments take place upon 
loading. 

DATA Variable List 

A data variable list is a list containing names of scalar and/or array elements. Arrpy 
elements must have integer constant subscripts. Dummy arguments may not appear in a DATA 
list. If a list contains more than one entry, the entries must be separated by commas. 

When an unsubscripted array name appears as an element of a DATA variable list, it 
has the same effect as if all of the elements of the array are specified in array element successor 
function order. 

Example: 

DIMENSION A(2,3) 

DATA V6*0. 0/ 

has the same effect as: 

DIMENSION A(2,3) 

DATA A(1,l), A(2,l),A(l,2),A(2,2),A(1,3),A(2,3)/6*0.0/ 

An implied DO list may also be used as a list element. An implied DO list is a simple 
list followed by a comma and then a DO -control of the form: 

v-ii, i2. '3 

where v is a DO-control integer variable name. This name is used as a local variable 
within the DATA statement and will have no correspondence with any actual variable with 
the same identifier. 

'1' '2' '3 °^^ DO-parameters as described in Section 2-6. These parameters must be 
either constants or DO-control variables from outer implied DO's. 

A list element in an implied DO list must be either an array element specification or 
another implied DO list. All implied DO lists must be enclosed within parentheses, however 
redundant parentheses may be used within implied DO's whenever desired. An array element 
must have at least one non-constant subscript. All variables used within subscript expressions 
must be DO-control variables of the DO-implied lists. A subscript expression may consist of 
any number of constants and DO-control variables combined with "+", "-" or "*". The expression 
must of course be a valid arithmetic expression and may not contain any other operations or 
parentheses. 
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DATA Variable List (Cont'd. ) 

Examples: 

((A(I,J),J=1,10),I=1J0) 
((A(3*I+5),I=9,7,-1) 
(A(I),(B(I,J),J=1,I),C(I), 1-8,10) 
(((ABC(I+J,J+K), 1=0, K), J-1,5), K=2,3) 

DATA Constant List 



A DATA constant list is of the form 



C^, C2, C3, ..., C^ 



where; 



the C. are of the following form 



where: 

r is an unsigned integer repeat count, whose value (non-zero) indicates the number of 
times the constant is to be repeated, and 

c is a signed or unsigned constant of an appropriate type as described in Section 2-3, 
DATA - Constants. 

The constants may be any of the forms described in Section 2-3, including literal constants, 

NOTE 

Since both octal constants and literal strings may 
begin with a single quote, it is possible to generate 
an ambiguous data constant(s). For example: /'77, 
IH'/ could be interpreted as an octal constant 
followed by a Hollerith literal or a 6 character 
literal (delimited by single quotes). Care should 
be taken to ensure that the desired constant string 
Is correctly compiled. The compiler will assume 
any string delimited by single quotes to be a literal 
if the terminal quote is followed by other than a 
digit or a letter (ignoring blanks). Thus, the above 
example will be interpreted as a six character literal. 

In gejneral, the type of the constant must be the same as the type of the variable that it 
is initializing,. However, the following rules apply in DATA statements. 

1. Real and double-precision variables may be initialized with constants of either 
6f those types. 
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2-8 DECLARATION STATEMENTS (CONT'D. ) 



2. Literal constants may be used with any type of variable except logical. A literal 
constant is broken up on a character by character basis, and depends on the number 
of words of storage occupied by the variable (see Storage Allocation Statements 

as described in this section). An integer variable may contain up to three charac- 
ters, a real or double precision variable may contain up to six characters, and a 
complex variable may contain up to twelve characters. A literal constant may not 
have an effective length greater than the number of characters which will fit in 
the corresponding list variable. 

3. If an arrav name is used without subscripts, then a literal constant may be specified 
which is longer than a single element, but may not exceed the entire length of the 
array. If the literal constant is not sufficient to initialize the entire array, then the 
element which is last initialized will be blank filled. Additional elements, within 
the array must then be defined with further DATA constants. 
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2-9 PROGRAMS AND SUBPROGRAMS 



The complete set of program units that are executed together as a single job is called 
an executable program. An executable program consists of one main program and all required 
subprograms. Subprograms may be defined by the programmer, as described in this section, or 
may be preprogrammed and contained in the FORTRAN library. 

Main Program 

A main program is comprised of a set of FORTRAN statements, the first of which (other 
than comment lines) Is not one of the following statements: 

a FUNCTION statement 

a SUBROUTINE statement, or 

a BLOCK DATA statement, 

and the last of which is an END statement. Even if a program unit contains internal sub- 
programs, it is classified as a main program as long as the first statement is not one of the three 
listed above. 

Main programs may contain any statement except a BLOCK DATA, FUNCTION, SUB- 
ROUTINE, ENTRY or RETURN statement. Once an executable program has been loaded, execution 
of the program begins with the first executable statement in the main program. Main programs 
may also be written in assembly language (see part IV, INTERFACING OF FORTRAN AND 
ASSEMBLER GENERATED MODULES). 

Subprograms 

Subprograms are programs that may be called by other programs. There are two broad 
classifications of subprograms as described in the following. 



Functions 



1. Statement functions 

2. FUNCTION subprograms 

3. Library functions (see Table 2-8) 

4. Assembly Language functions (see Section IV) 



Subroutines 

1. SUBROUTINE subprograms 

2. Assembly language subroutines (see Section IV) 

Functions are referenced within expressions, and return a value; subroutines are referenced 
with CALL statements and do not necessarily return a value. A large number of library functions 
and subprograms are included in Harris FORTRAN (for further information refer to the DC 6024 
FORTRAN Support Library, General Specification). Information concerning interfacing FORTRAN 
programs with assembly language subprograms is contained in Section IV of this specification. 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT'D.) 



Statement Functions 



Statement functions are functions that can be defined in a single expression. A 
statement function definition has the form: 

f(d^, dj/ d^ . . ., d^) = e 

where: 

f is the name of the function, 

d. is the identifier of a dummy scalar variable (see below), and 

e in an expression of any mode that can legally be assigned to data of the type of f. 

A statement function must have at least one dummy argument. Statement function 
dummies are treated only as scalars; they cannot be dummy arrays or subprograms (see "Arguments 
and Dummies" in this section). The expression e should contain at least one reference to each 
dummy. Other references in the expression are unrestricted except that the identifier f may 
not appear. In particular, subscripted variables may appear, as may references to other state- 
ment functions, which have been previously defined. As an example: 
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Since each dj is merely a dummy and does not actually exist, the names of statement 
function dummies may be the same as the names of any other entities in the pn^gram, except for 
the other dummies in the same statement function. Note, however, that if a statement function 
dummy is nomed X, and there is another variable in the program called X, then the appeoronc* 
of X within the statement function expression refers to the dummy. 

The statement function itself is typed like any other identifier: it may appear in an 
explicit type statement; if it does not, it wiU acquire an implicit type (see Section 2-8, 
DECLARATION STATEMENTS - Implicit Declarations). 
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2-9 PROGRAM AND SUBPROGRAMS (CONT'D. ) 

FUNCTION Subprograms 

Functions that cannot be defined in a single statement may be defined as FUNCTION 
subprograms. The subprograms are introduced by a FUNCTION statement of the form: 

FUNCTION f^ (d^,d2,. . . ,d^),f2(d^,d2,. . . ,d^),. . . f^(d^,d2,. . . ,d^) 

or 

type FUNCTION f ^ (d^,d2,. . . ,dn),. . . ,f^(d^,d2,. . . rd^) 

where: 

f. is the identifier and the name of the entrance point of the function. The identifier 
name f, is equated to the first executable statement of the function. 

dj is a dummy argument of any type of the forms described in "Arguments and Dummies". 
The set of different dj's for all of the f|'s define the function's complete argument list. Only the 
dummy argument list associated with the identifier f; is passed to the function in the order 
specified by the list of elements in f|. Dummy arguments should be assigned values by a prior 
call to an associated ENTRY statement before being used in a meaningful manner. 

Type is an optional type specification, which may be any of the following: INTEGER, 
REAL, DOUBLE PRECISION, COMPLEX or LOGICAL. 

Every FUNCTION subprogram must have at least one dummy. Values may be assigned 
to dummies within the FUNCTION subprogram with certain restrictions (see "Arguments and 
Dummies"). 

A FUNCTION subprogram must contain at least one RETURN statement; a RETURN 
statement should be logically the last statement in a FUNCTION subprogram; that is, it should 
be the last statement executed for each execution of the FUNCTION. Control is returned to 
the calling program which last called an identifier f;. 

A RECUR statement must not be placed in a multiple entry FUNCTION subprogram. 

Within the function f;, the identifier of the f^ FUNCTION subprogram is treated 
as though it were a scalar variable and must be assigned a value during each execution of 
the function. The value returned for a FUNCTION d| is the last one assigned to the f] 
identifier prior to the execution of a RETURN statement. 

FUNCTION statement examples: 

DOUBLE PRECISION FUNCTION DIFFEQ(R,S,N) 
REAL FUNCTION IWATT (W,X,Y,Z1,Z2) 
FUNCTION EXTRA (N,A,B,C,V),EXTAR(N,A,B,C,V) 
LOGICAL FUNCTION VERDAD(E,F,G,H,P) 
FUNCTION FIRST (A,B,C,X,I),FAST(I,D,C),FASTER(R) 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT'D. ) 

FUNCTION subprogram examples: 
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Library Functio ns 

The DC 6024 FORTRAN library includes basic arithmetic functions, and support library 
subroutines. The calling sequence of these routines are automatically generated by the FORTRAN 
compiler. The library also contains the standard FORTRAN functions. Library siubprograms 
are discussed in the FORTRAN Support Library General Specification. Table 2-8 gives a brief 
description of the standard FORTRAN library functions. The compiler recognizes the data type 
of the function, and makes the appropriate conversions where necessary and allowed (see Section 
2-4, EXPRESSIONS -Mixed Expressions). 
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Table 2-8 


. Library Fun 


ctions 






Function 


Definition 


Number of 
Aiiguments 


Name 


Type 


Argument 


Function 


Absolute Value 


org 1 


1 


ABS 
lABS 
DABS 
CABS 


Real 
Integer 
Double 
Complex 


Real 
Integer 
Double 
Real 


Truncation 


Sign of aig Times 
Largest integer 
< largi 


1 


AINT 

INT 

IDINT 


Real 
Real 
Double 


Real 

Integer 

Integer 


Choosing Largest 
Value 


Max (org ^, org 2 . • •) 


>2 


AMAXO 

AMAXl 

MAXO 

MAXl 

DMAXl 


Integer 

Real 

Integer 

Real 

Double 


Real 

Real 

Integer 

Integer 

Double 


Choosing Smallest 
Value 


Min (arg^,arg2 . . .) 


>2 


AMINO 

AMINl 

MINO 

MINI 

DMINl 


Integer 

Real 

Integer 

Real 

Double 


Real 

Real 

Integer 

Integer 

Double 


Float 


Conversion from 
Integer to Real 


1 


FLOAT 


Integer 


Real 


Fix 


Conversion from 
Real to Integer 


1 


IFIX 


Real 


Integer 


Transfer of Sign 


Sign of arg« Times 
1 arg^ | 


2 


SIGN 

ISIGN 

DSIGN 


Real 

Integer 

Double 


Real 

Integer 

Double 


Positive Difference 


arg^ - Min (arg^ 
arg2) 


2 


DIM 
IDIM 


Real 
Integer 


Real 
Integer 


Obtain Most Sig- 
nificant part of 
Double-Precision 


org. 


1 


SNGL 


Double 


Real 


Obtain Real Part 
of Complex org 




1 


REAL 


Complex 


Real 


Obtain Imaginary 
Part of Complex 
org 




1 


AIMAG 


Complex 


Real 


Express Single- 
Precision org. in 
Double-Precision 
Form 




1 


DBLE 


Real 


Double 


Express Two Real 
orgs in Complex 
Form 


arg^ + arg2 V-1 


2 


CMPLX 


Real 


Complex 
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Table 2-8. Library Functions (Cont'd.) 



Function 


Definition 


Number of 
Arguments 


Name 


Type 1 


Argument 


Function 


Obtain Conjugate 
of a Complex Arg 


For org = X+iY, 
C = X - iY 


1 


CONJG 


Complex 


Complex 


Exponential 


e(a'-g) 


1 


EXP 

DEXP 

CEXP 


Real 

Double 

Complex 


Real 

Double 

Complex 


Natural Logarithm 


Log^ (arg) 


1 


ALOG 
DLOG 
CLOG 


Real 

Double 

Complex 


Real 

Double 

Complex 


Common Log 


Log 10 (°''9) 


1 


ALOG 10 
DLOGIO 


Real 
Double 


Real 
Double 


Trigonometric 
Sine 


Sin (org) 


1 


SIN 

DSIN 

CSIN 


Real 

Double 

Complex 


Real 

Double 

Complex 


Trigonometric 
Cosine 


Cos (org) 


1 


COS 

DCOS 

CCOS 


Real 

Double 

Complex 


Real 

Double 

Complex 


Hyperbolic 
Tangent 


Tanh (org) 


1 


TANH 


Real 


Real 


Square Root 


(org)V2 


1 


SQRT 

DSQRT 

CSQRT 


Real 

Double 

Complex 


Real 

Double 

Complex 


Arctangent 


Arctan (org) 
Arctan(argn/arg2) 


1 
1 

2 
2 


ATAN 
DATAN 
ATAN 2 
DATAN 2 


Real 
Double 
Real 
Double 


Real 
Double 
Real 
Double 


Remaindering* 


arg^ (mod arg^) 


2 
2 
2 


DMOD 
AMOD 
MOD 


Double 

Real 

Integer 


Double 

Real 

Integer 


Trigonometric 
Tangent 


Tan (org) 


1 


TAN 
DTAN 


Real 
Double 


Real 
Double 


Arcslne 


Arcsin (org) 


1 


ASIN 
DASIN 


Real 
Double 


Real 
Double 


Arcossine 


Arccos (org) 


1 


ACQS 
DACOS 


Real 
Double 


Real 
Double 



*The function MOD (org,, arg^) is defined as org, - farg^/arg2l *arg2^ where fx] is the 
integral part of x. 

SUBROUTINE Subprograms 

SUBROUTINE subprograms, like function subprograms, are self-contained programmed 
procedures. Unlike FUNCTIONS, however, SUBROUTINE subprograms do not have values 
associated with them, and may not be referenced in an expression. Instead, SUBROUTINE 
subprograms are accessed by CALL statements (see Section 2-6, CONTROL STATEMENTS - 
CALL Statement). 

2-86 



2-9 PROGRAMS AND SUBPROGRAMS (CONT'D. ) 

SUBROUTINE Subprograms (Cont'd. ) 

SUBROUTINE subprograms begin with a SUBROUTINE statement of the form 

SUBROUTINE p^ (d^^dj,. . . ,d^),p2(d^,d2,. . . ,d^),. . . ,P^{^y^2" ' ' '"^n^ 

or 

SUBROUTINE p^, p^r . . . p 



w 



here: 



pi is the identifier of the subroutine, and the name of the entrance point of the subroutine. 
The identifier name p, is equated to the first executable statement of the function. 

d. is a dummy argument, of any of the forms described in "Arguments and Dummies". 
The set of clifferent dj's for all of the pj's define the subroutines complete argument list. Only 
the dummy argument list associated with the identifier p; is passed to the subroutine in the order 
specified by the list of elements in p} Dummy arguments should be assigned values by a prior 
call to an associated ENTRY statement before being used in a meaningful manner. 

Note that while a FUNCTION must have at least one dummy, a SUBROUTINE may 
have none. 

A SUBROUTINE program must contain at least one RETURN statement; a RETURN state- 
ment should be logically the last statement in a SUBROUTINE subprogram; that is, it should be 
the last statement executed for each execution of the SUBROUTINE. Control is returned to the 
calling program which last called an identifier P|. 

A RECUR statement must not be placed in a multiple entry SUBROUTINE. 

A SUBROUTINE subprogram may return values to the calling program by assigning values 
to the d. or to variables in common storage. 

SUBROUTINE statement examples: 

SUBROUTINE CHECK 

SUBROUTINE ONE (B,M,J,K), TWO (M,B,K), THREE (K,B,M,J) 

SUBROUTINE START (A,B,C),NOARG 



SUBROUTINE subprogram example: 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT' D. ) 

BLOCK DATA Subprograms 

The BLOCK DATA subprogram must be used to initialize data in a COMMON block via 
the DATA statement. This subprogram contains only the DATA, COMMON, DIMENSION and 
type statements associated with the data being entered. The BLOCK DATA subprogram may not 
contain any executable statements. The first statement must be the BLOCK DATA statement. 

Example: 
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ENTRY Statement (extended compiler only) 

The ENTRY statement is of the form: 

ENTRY f| or ENTRY p; 
where: 

ff or PI is the identifier and the name of the entrance point of the FUNCTION or SUB- 
ROUTINE subprogram. The identifiers f] or pi may not be used as alternate entry points. The 
dummy arguments if any specified by f| or p; are passed to or from the main prctgram. 

The ENTRY statement is nonexecutable and may be placed anywhere in the subprogram 
except as the terminal statement of a DO loop. A statement number on an ENTRY statement is 
optional even if an ENTRY statement immediately follows a RETURN statement. Passing control 
to an ENTRY statement from within a subprogram does not transfer additional arguments and control 
resumes with the first executable statement following the ENTRY statement. 

ENTRY Examples: 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT'D. ) 

Arguments and Dummies 

Dummy arguments provide a means of passing information between a subprogram and the 
program that called it. Both FUNCTION and SUBROUTINE subprograms may have dummy argu- 
ments, but a SUBROUTINE need not have any, while a FUNCTION must have at least one. Dummies 
are merely "formal" parameters, and are used to indicate the type, number, and sequence of sub- 
program arguments. A dummy does not actually exist, and no storage is reserved for it; it is only 
a name used to identify an argument in the calling program. An argument may be any of the 
following: 

a scalar variable 

an array element 

an array name 

an expression 

a statement label 

a literal constant 

a subprogram name 
A dummy itself may be classified within the subprogram as one of the following: 

a scalar variable 

an array 

a subprogram 
Table 2-9 indicates the permissible kinds of correspondence between an argument and a 



dummy. 



Table 2-9, Permissible Correspondence Between Arguments and Dummies 



Argument 


Scalar 


Dummy 
Array 


Subprogram 


scalar or array element 


Yes 


Yes 


No 


expression 


Yes 


No 


No 


statement label 


Yes 


No 


No 


array name 


Yes 


Yes 


No 


literal constant 


Yes 


Yes 


No 


subprogram name 


No 


No 


Yes 



A statement label argument is written as: 

$k 
where: 

k is the actual statement label, and 

$ distinguishes the item as a statement label (as opposed to an integer constant). 
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2-9 PROGRAMS AND SUBPROGRAMS ( CONT' D. ) 



Arg uments and Dummies (Cont' d.) 

Within a subprogram, a dummy may be used in much the same way as any other scalar, 
array, or subprogram identifier with certain restrictions; namely, dummies may not appear in 
COMMON, EQUIVALENCE or DATA statements. 

In general, dummies must agree in type with the arguments to which they correspond. 
For example, the following situation is an error because the types of the arguments and the dummies 
do not agree. 



COMPLEX C 
LOGICAL L 
X = F(C,L) 



FUNCTION F(Ll,CC) 
LOGICAL LL 
COMPLEX CC 



Reversing the order of either the arguments in the calling reference or the dummies in 
the FUNCTION statement would eliminate the error in this example. 

There are three exceptions to the rule of type correspondence. 

1 . A statement number passed as an argument must correspond to a dummy 
variable of integer type. 

2. A SUBROUTINE name (as opposed to a FUNCTION name) has no type. 

3. A literal constant also has no t/pe and may be received by any type of dummy 
array. 

When a dummy corresponds to a variable in the calling argument list, a reference to 
the dummy is actually a reference to the argument variable. Thus, not only will the dummy 
initially have the value to which the argument variable was assigned at the time of the call, 
but any value subsequently assigned to the dummy will actually be assigned to the argument 
variable, thus returning a result through the argument list. For example: 

mn-. : _._...-...; 4 





tmat:^; QiL mmy 



hlMt. i-i 

'X!^Z^ 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT'D.) 

Ar guments and Dummies (Cont'd.) 

where the values of Z and Q will be reversed whenever the initial value of Q is greater 
than that of Z. 

On the other hand, when a dummy corresponds to an expression, the expression serves merely 
to initialize the value of the dummy, and consequently the value of the dummy should not be 
changed within the subprogram. Note that a single constant is a form of expression, as is a 
function reference (as opposed to a function name alone). For example, if X is a scalar 
variable and F is a function: 

CALL ALPHA(X, 4.6, F, F(X)) SUBROUTINE ALPHA (A,B,C,D) 

the dummy scalars B and D must not be assigned values within ALPHA, while the dummy A 
may be. The dummy C must be used within the subprogram as a subprogram identifier. 

When a dummy corresponds to a statement label, the effect is the same as: 

ASSIGN k TOd 

where : 

k is the statement label and d is the dummy. 

A dummy, such as k, may be used in a GO TO statement. 



Dummy Scalars 



Dummy scalars are single valued entities that correspond to a single element in the calling 
program. 

Dummies that are not declared to be arrays, or subprograms, are treated as scalars. 

Dummy Arrays 

A dummy argument may be defined to be an array by the presence of its identifier in an array 
declaration within the subprogram (the fact that a calling argument is an array does not in 
itself define the corresponding dummy to be an array). As with all dummies, a dummy array 
does not actually occupy any storage; it merely identifies an area in the calling program. 
The subprogram assumes that the argument supplied in the calling statement defines the first 
(or base) element of an actual array and calculates subscripts from that location. 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT D.) 

Dummy Arrays (Cont'd.) 

Normally, a dummy array is given the same dimensions as the argument array to which it 
corresponds. This is not necessary however, and sometimes useful operations can be performed 
by making them different. For example: 

DIMENSION A(10,10) SUBROUTINE OUT(B) 

CALL OUT (A(l,6)) DIMENSION B(50) 



In this case, the 1 -dimensional dummy array B corresponds to the last holf of the 2-dimensional 
array A i.e., elements A(l,6) through A(10,10). However, since an array name used without 
subscripts ais an argument refers to the first element of the array, if the calling statement were 

CALL OUT (A) 

the dummy array B would correspond to the first half of the array A. 

Arguments that are literal constants are normally received by dummy arrays (they may also 
be passed to assembly language subprograms). A literal constant is stored as a consecutive 
string of characters in memory, and its starting location is passed as the argument address. 
Thus, in the example: 

CALL FOR (13HPHILIP MORRIS) SUBROUTINE FOR(M) 

INTEGER M(5) 



the following correspondences hold: 

M(l) = 3HPHI 

M(2) = 3HLiP 

M(3) = 3F|bMO 

M(4) = 3HRRI 

M(5) = 2HS}S^ 

where: 

)6 represents the character blank. 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT'D. ) 

Dummy Arrays (Cont'd. ) 

Literal Constants are filled out with trailing blanks to the nearest double word boundary 
(multiple of six characters). Therefore, passing such a constant to a dummy of a type that occupies 
more than one word per element (e.g., double precision) will normally result in a valid definition 
of the entire dummy. Thus, IHX when passed to real variable has the same effect as 6H XJ4W^- 
Note this does not always apply to a complex dummy, therefore it may result in an un-defined 
imaginary part to the dummy. 

If an array corresponds to something that is not an array or a literal constant, the latter 
will correspond to the first element of the array. This is true whether the calling argument is an 
array and the dummy is not, or vice versa. Thus, for example, if the calling argument is a scalar 
and the dummy is an array, references in the subprogram to elements of the array other than the 
first element will correspond to whatever happens to be stored near the scalar. Obviously, care 
must be taken in creating correspondences of this nature, as they may depend upon a particular 
implementation. 

Adjustable Dimensions 

Since a dummy array does not actually occupy any storage, its dimensions are used only 
to locate its elements, not to allocate storage for them. Therefore, the dimensions of a dummy 
array do not have to be defined within the subprogram in the normal manner. Instead, any or all 
the dimensions of a dummy array may be specified by scalar variables rather than by constants. 
This permits the calling program to supply the dimensions of the dummy array each time the sub- 
program is called. The following statements demonstrate adjustable dimensions: 

DIMENSION P(10,5), Q(9,3) FUNCTION SUM (R, N, M) 

X = SUM(P, 10,5) DIMENSION R(N,M) 

Y = SUM(Q, 9,3) 



Only a dummy array may be given adjustable dimensions, and the dimensions must be 
specified by integer scalers. These scalars must be dummies or COMMON variables only. 

The variable used as adjustable dimensions may be referenced elsewhere In the sub- 
program but should not be changed. 

Dummy Subprograms 

A dummy subprogram must correspond to an argument that Is a subprogram name, and It Is 
the only kind of dummy that may do so. The dummy name merely serves to identify a subprogram 
whose actual location Is defined by the calling program. Therefore, a call on a dummy 
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2-9 PROGRAMS AND SUBPROGRAMS (CONT'D.) 

Dummy Subprograms (Cont'd.) 

subprogram is actually a call on the subprogram whose name is specified as the argument. 
A dummy subprogram is classified in the same manner as any other subprogram (see Section 
2-3, DATA - Identifiers). 

Examples of dummy subprograms are: 

EXTERNAL SIN, DSIN, SORT, DSQRT FUNCTION DIFF(F,DIF,Z) 

A- DIFF (SIN, DSIN, X) DOUBLE PRECISION DF 

B = DIFF(SQRT, DSQRT, Y) DIFF - DABS(F(Z) - DF(Z)) 

RETURN 

; END 

A subprogram identifier to be passed as an argument must be identified as a subprogram. That 
is, it must be used as a subprogram and/or appear in an EXTERNAL statement. Otherwise it 
will be classified as a scalar variable. 

R ECUR Statement (Extended Compiler Only) 

The RECUR statement simplifies writing of recursive subprograms in FORTRAN. 
The format is: 

RECUR n 

Where n is an integer constant which specifies the maximum number of levels of recursion. 
The code generated by the compiler saves the return addresses in a stack. If the subprogram 
has arguments, the argument pointers ore updated each time the subprogram is; re-entered. Any 
stacking of arguments or intermediate values must therefore be programmed by the user. 

NAME Statement (Extended Compiler Only) 

The format for the NAME statement Is as follows: 

NAME n 

Where n is an identifier. (See Identifiers, Section 2-3). The purpose of this capability is to 
allow FORTRAN main programs to be cataloged by the DOS EDITPF processor, or be cataloged 
in the NAME file by tne EDITNF processor. 
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SECTION III 
FORTRAN DIAGNOSTIC MESSAGES 



3-1 GENERAL DESCRIPTION 

The Harris FORTRAN system includes an extensive set of compile -time and run- 
time diagnostic messages. Compile-time diagnostics include in the message a complete phrase 
which normally will indicate to the programmer the exact nature of the error as well as the point 
in the source statement where the error was discovered. The run-time diagnostics do not produce 
a verbose message, but attempt to pin point the location in the source program where the error 
occurred. This section explains the format of both compile-time and run-time diagnostics, and 
lists all possible reasons which might cause the error conditions to occur. 

3-2 COMPILE-TIME DIAGNOSTICS 

Diagnostic messages will appear on the list output file in-line with the source state- 
ments. In most cases, the diagnostic message will appear on the line immediately following 
the questionable statement. Although this is not always possible due to the one-pass nature of 
the compiler, the "snapshot" feature should pinpoint the location of the questionable text. 

The format of a compile-time diagnostic message is: 

ERROR XX YYYYYY message 

or 

NOTE XX YYYYYY message 

where: 

XX is an octal number corresponding to the type of error, and 

YYYYYY is the last six characters encountered within the statement when the discrepancy 
was discovered. 

The message may be up to 30 characters in length and generally indicates the exact nature 
of the error. Table 3-1 is a list of all compile-time diagnostics and a description of all 
conditions which might cause the error. 

An ERROR outputs a code to the link loader to prevent loading. A NOTE allows linking 
to proceed. 
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Table 3-1. Compile-Time Diagnostic Messages 



Error 
Number 


Message 


Cause 





DATA POOL OVERFLOW 


The entire data storage area available to the 
compiler is filled. This includes symbol table and 
all other table storage combined, since table storage 
is allocated dynamically. This is the only error 
condition which prevents compilation from continuing. 


1 


INVALID OPERATOR 


a) 2 or more consecutive operators 

b) A special character not recognized as an 
operator 

c) Using . NOT. as a leading operator follov/ing an 
arithmetic or relational operator. 

d) an attempt to shift or rotate by a value that is 
not an integer constant whose absolute value is 
less than 24. 


2 


INVALID CONSTANT 


a) Too many digits in a constant. 

b) Magnitude of a real or double precision constant 
is out of range. 

c) an octal constant contains an "8" or "9" 

d) a constant appears where an identifier is 
expected 

e) A non-zero constant does not appear where 
expected. 


3 


INVALID SYNTAX 


The compiler has accepted the statement as a 
legitimate FORTRAN statement, but t-he construction 
of some particular element does not conform to the 
rules of the language. In particular, this message 
is caused by: 

a) Incorrectly formed exponent in a real or double 
precision constant. 

b) Unrecognizable logical operator. 

c) Identifier with more than 6 characters.* 

d) Invalid construction of a statement function 

e) Invalid use of "=" (equal sign). 

f) Invalid construction of a DO or ASSIGN state- 
ment. 

g) Two consecutive relational operators not separated 
by a logical operator. 

h) Invalid construction of an argument list. 


4 


MISSING OPERAND 


An identifier or constant does not exist in the text 
at a point where expected. 


5 


RETURN STATEMENT 


a) A RETURN statement has been recognized in a 
main program 

b) A subprogram contains no RETURN statement. 



" WARNING 
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Table 3-1. Compile -Time Diagnostic Messages (Cont'd. ) 



Error 
Number 


Message 


Cause 


6 


INVALID STATEMENT 
NUMBER 


a) Incorrectly constructed statement number. 

b) A statement number contains more than 5 numeric 
characters. 

c) A reference exists to an undefined statement 
number. These errors are discovered immediately 
following the output of the statement number map. 

d) More than one statement has the same statement 
number. 


7 


DATA IN COMMON 


The variable list of a DATA statement contains an 
item which has been allocated common storage and 
the program is not a BLOCK DATA sulDprogram. 


10 


SUBSCRIPT USAGE 


a) An array is declared using variable subscripits 
which are not dummies (i. e. , do not appear as 
arguments of a subroutine or FUNCTION state- 
ment. 

b) An array element is accessed whose number of 
subscripts do not match the declared number of 
subscripts for that array. 


n 


INVALID STATEMENT 


The statement is not recognized as a legitimate 
FORTRAN statement or the source program was not 
properly terminated with an END$ statement. 


12 


PARENTHESIS 


a) A left or right parenthesis does not occur where 
expected. 

b) The number of left and right parenthesis within 
an expression do not agree in number. 


13 


MIXED MODES 


Invalid mixing of item modes (data types) withih 

a) an expression 

b) an assignment statement 

c) a DATA statement 


14 


INVALID DELIMITER 


a) An invalid special character has caused the 
processing of a statement to terminate. 

b) The "/" character does not appear where 
expected in a DATA or COMMON statement. 

c) In an expression, an invalid character follows 
an array or SUBPROGRAM identifier. (Only 
"/' and "(" ore acceptable). 


15 


INVALID DATA 
SPECIFICATION 


a) A DATA statement variable list does not contain 
the same number of items as its corresponding 
constant list. 

b) An H -specification is too large to fit into its 
corresponding variable. 

c) A DATA statement in a BLOCK DATA subprogram 
is attempting to initialize data into a non- 
COMMON variable. 
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Table 3-1. Compile-Time Diagnostic Messages (Cont'd. 



Error 
Number 


Message 


Cause 


15 


INVALID DATA 
SPECIFICATION (Cont'd) 


d) An H -specification that is preceded by a repeat- 
count is contained on more than one card by use 
of a continuation line. 


16 


UNDEFINED VARIABLE 


a) An identifier has been used but not defined. 

b) An ENTRY identifier is not defined in a sub- 
program statement. 

c) A subprogram identifier has not been referenced 
by an ENTRY statement. 


17 


INVALID ITEM USAGE 


a) An identifier previously defined as a variable 
subroutine or array is used in a context that 
requires a different item usage. 

b) A constant is used where an identifier is expected. 

c) An ENTRY point has multiple definition. 


20 


INVALID LOGICAL IF 


A logical IF statement is used as the executable 
statement of a logical IF statement. 


21 


MISSING STATEMENT NO. 


A FORMAT statement is unlabeled. 


22 


INVALID H SPECIFICATION 


An H-specifi cation is longer than the remaining 
characters in the statement. 


23 


INVALID BLOCK DATA 
PROGRAM 


An executable statement has been detected in a 
BLOCK DATA subprogram. 


24 


INVALID COMMON 
USAGE 


Multiply defined common variables. 


25 


INVALID MODE 


a) Logical operation attempted using other than 
logical or integer typed variables. 

b) Arithmetic operation attempted on logical 
variables. 


26 


FUNCTION NEEDS 
ARGUMENTS 


A FUNCTION statement has been encountered that 
does not specify any arguments. 


27 


EQUIVALENCE 


a) Two items are equivalenced, both of which have 
been allocated to a COMMON block. 

b) An equivalence group demands the extension of a 
COMMON block in a negative direction. 

c) Invalid construction of an EQUIVALENCE 
statement. 

d) Contradicting equivalence groups. 


30 


STATEMENT ORDER 


a) Specification statement follows DATA, state- 
ment function, or executable statement. 

b) DATA statement follows statement function or 
executable statement. 
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Table 3-1. Compile -Time Diagnosfic Messages (Conf-'d. ) 



Error 
Number 



30 



31 



32 



33 



Message 



STATEMENT ORDER 
(Cont'd. ) 



NO PATH TO HERE 



INVALID DO 



MODULE OVERFLOW 



Cause 



c) Sfafement function follows an executable state- 
ment. 

d) FUNCTION, SUBROUTINE, or BLOCK DATA 
statement is not the fi rst $ta tement of a program. 

An executable statement which is not labeled wlith a 
statement number immediately follows either an 
arithmetic IF or a GO TO statement. * 



a) The terminal statement of a range of a DO ii a 
GO TO, arithmetic IF, RETURN, PAUSE, STbP, 
or DO statements. 

b) Illegally nested DO statements. 

c) An error in an implied DO within an I/O list. 



This segment has exceeded 32,767 decimal locations. 



cause 



* WARNING 

Scalar variables that appear only to the right of the equal sign in assignment statement^ 

a WARNING message to be generated. Subsequent execution of the compiled progrcm is not 
inhibited. The last line of compiler list output is formated as follows: 

XXX ERRORS SIZE YYYYY ZZZZZ 

Where XXX is the number of errors discovered during compilation. (This output does n6t appear 
if no errors have been discovered. ) YYYYY is the module size expressed as a decimal iinteger. 
ZZZZZ is tfje module size expressed as an octal integer. 
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RUN-TIME DIAGNOSTICS 



If an error condition occurs during the execution of a FORTRAN program or any prpgram 
that calls functions from the FORTRAN library, an error procedure is initiated. Depending Upon 
the operating system and the status of the execution options, an error message will be output and/or 
an abort will occur (see appropriate reference manual). The format of the error message (if Ipresent) 
is one of the following: 

SAU XX @ yyyyyy 

FER XX (5) yyyyyy 
where: 
XX is a two digit error number 

yyyyyy is an octal address which is the return address of the routine in which the error 
occurred. 

Table 3-2 is a list of all run-time diagnostics. A description of the result of the operation 
if not aborted is also given. 



3-5 



Revision B 
January, 1976 

3-3 RUN-TIME DIAGNOSTICS (CONT'D. ) 

An additional debugging aid is also provided for execution errors that- are not readily 
diagnosed. Upon the occurrence of a run-time error, in addition to the normal error message, a 
source level error location may be produced. In order for this to occur, a compile time option 
must be set during compilation of the program which is generating the error. If this option was 
set during compilation (see option "W" or BIT in Section 3-4), and an error occurs, the following 
message will be output: 

— > ERROR IN xxxxxx AT STATEMENT NUMBER yyyyyy + zzzzzz LINES. 

where: 

xxxxx:x is the name of the FORTRAN routine in which the error occurred. *MAIN* 
indicates that the error occurred in the main program. Note: If the error 
occurred in a library routine or in a FORTRAN subprogram that was not 
compiled with the "W" or Bll option, then this message will indicate the 
last statement executed in a module which was compiled with the "W" or 
Bl 1 option, prior to the error. 

yyyyyy '^ ^^^ '^ist statement number encountered prior to the statement in which 
the error occurred. If the error occurred in a statement with a statement 
number, then yyyyyy is that statement number. Note, that in this context, 
prior means the statement physically preceding and does not necessarily 
Indicate execution sequence. 

zzzzzz is the number of the statement relative to yyyyyy in which the error 

occurred. If the error occurred in statement yyyyyy t ^ben zzzzzz is 0. 
If it occurred after yyyyyy^ then ■lt.tlz.t. is one more than the number of 
physically intervening statements between yyyyyy and the statement in 
error. For the purpose of this error message, the first statement of a 
program or subprogram is considered as " + 1 LINES. " 

Note: zzzzzz etc., does not include continuation statements, comment 
cards or the object of a logical IF as additional statements. 

If the error occurred in a subprogram which was called thru one or more levels of 
subprograms from the main program, then each of these calls will be indicated by the following 
message (if the calling routine was compiled with option "W" or Bll set): 

— > CALLED BY xxxxxx AT STATEMENT NUMBER yyyyyy + zzzzzz LINES. 

where xxxxxx, yyyyyy and zzzzzz are as defined above. 
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Error 
Number 



01 
02 

03 
04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

41 

42 

43 

44 



Table 3-2. Run-Time Diagnostics 



Explanation 



Square root or a negative number. 

An FXA instruction was executed such that 
the Integer result could not be contained 
In register A. 

Division by zero. 

Arithmetic underflow (generated by add, 
subtract, multiply, divide or square). 

Arithmetic overflow (generated by add, 
subtract, multiply, divide or square). 

SIN or COS of a number so large that all 
significance Is lost. 

ATAN2 or DATAN2 called with both 
arguments zero. 

Logarithm of zero or a negative number. 

Underflow during EXP or DEXP. 

Overflow during EXP or DEXP. 

Underflow during exponehtldtion (X**Y). 

Overflow during exponentiation (X**Y). 

Exponentiation error (00**0 or neg**0). 

Exponentiation error (0**neg). 

Exponentiation error (neg**neg or neg**pos), 

ASIN or ACOS with [argument | >1. a 

Invalid output FORMAT specification. 

Invalid input FORMAT specification. 

Illegal character during input. 

Underflow during numeric input conversion. 



Action if 
Not Aborted 



resu 



lt-0 



result - FSPor FSN 

result = FSP 
result = 

result = FSPor FSN 

result = 

result = 

result = 

result = 

result = FSP 

result = 

result = FSPor FSN 

result = 1 

result = FSP 

result = 

result -0 

Output terminated 

Input terminated 

Character ignored 

result = 
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Table 3-2. Runr-Tirfie Dld^nosHcs (Cont'd. ) 



Error 
Number 


Explanation 


Action if 
Not Aborted 


45 


Overflow during numeric input conversion. 


result = FSP or FSN 


46 


More than 10 BUFFER IN or OUT files. 


operation not performed 


47 


More than 10 files were defined via the 
DEFINE FILE statement. 


operation not performed 


48 


Attempted READ, WRITE, or FIND a record 
on an undefined random access file. 


operation not performed 


49 


Attempted READ, WRITE, or FIND a record 
number larger than the defined number of 
records in the random access file. 


operation not performed 


NOTE: 


FSP = 'Z7777777 for integer results 





'Z7777777, 'Z7777577 for all SAU and Double 
precision non-SAU results 

'27777777, '00000177 for Real non-SAU results 



FSN - '40000001 for integer results 

- '40000000, '00000577 for all SAU and Double 
precision non-SAU results 

= '40000001, '00000177 for Real non-SAU results 
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3-4 IN-LINE CONTROL STATEMENTS 



The Extended Harris FORTRAN compiler processes in-line control statements. This 
extension is not available in the Basic Harris FORTRAN compiler. An in-line control statement 
is identified by a colon (:) in column 1 of a source statement. Like other FORTRAN statements, 
columns 73-80 of in-line control statements are not processed. In-line control statements are 
divided into two groups: 

I. Conditional -compile control statements, which provide means for skipping 
(not compiling) a set ot source statements if a specified condition is true. 



2. 



Option control statements, which provide means for turning various compile- 
time options "on" or "ott" at any point in the program. 



A program may contain any number of in-line control statements. Any error ddtected 
in an in-line control statement terminates the processing of that in-line control statement. The 
error is considered to be a non-fatal compilation error and a warning message is issued. 

3-4. 1 Conditional -compile Control Statements 

Conditional -compile control statements provide means for conditional compilation of 
source statements. They are divided into two groups: Skip-statement s and an ESKP -statement. 

A conditional -compile block consists of a set of statements, the r ange of the conditional- 
compile block, enclosed between a ski"p-statement and an ESKP-statement. ATki p-stoterrtent opens 
a conditional -compile block, while an ESKP statement clos es it. A conditional -compile block 
may contain any number of conditional-compile blocks in its range, i. e, conditional -compile 
blocks may be nested to any level. The range of a conditional -compile block may be ertipty. 
When conditional -compile blocks are nested, the first encountered ESKP-statement -closes the 
last opened conditional -compile block, the second ESKP-statement closes next-to-last opened 
conditional -compile block, etc.. Each conditional -compile block opened in the program must 
be closed. 

3-4. 1. 1 Skip-Statements 

The skip-statement has the form: 
:SKFS f], f2, . . . , f,, . . . , fn 



or 



:SKFZ f^, fj, . .., fj, ..., fn 

Where f; is a flag number, an unsigned integer constant, in the range of and 23. 
Examples: 

:SKFS 1, 10, 2, 3 
:SKFZ 20, 1 
:SKFZ 2 
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The list of flag numbers specified on a skip-statement constitute the skip condition for 
the associated conditional -compile block. Compilation of a skip-statement causes evaluation 
of the specified skip condition. If the skip condition is true, statements in the range of the 
associated conditional -compile block are skipped (not compiled or ignored) by the compiler. 
Compilation Is resumed at the ESKP statement ot ttie skipped conditional -compile block. If the 
skip condition is false, normal compilation sequence continues. 

In case of an SKFS statement, the skip condition is true only if all flags specified by it 
are "on". In case of an SKFZ statement, the skip condition is true onlyTF gM flags specified 
by it are "off". In all other cases the skip condition is considered false. 

If the skip condition is true for a specific conditional -compile block, any conditional - 
compile blocks in its range will be skipped regardless of their skip condition. If an error is 
detected in a skip-statement, a warning message is issued and the statement is ignored by the 
compiler. 

Under DMS/DOSAOSAOS, flags for compilation are specified using $FL/vGS state- 
ment of the Job Control. 

Example: 

$FLAGS .0,1 

$ASSIGN 7, INPUT 
$FORTRAN 

Under VULCAN, these flags are specified using the FLAGS specification on the Job 
Control statement or processor call statement. It should be the last parameter on the statement, 
thus it should follow the AREANAME if an area name is specified. The form of this specification 



IS 



reset. 



FLAGS== n, n, . . ., n 

where the n's are the flag numbers to be set during compilation. All other flags are 

Example: 



$FO. EM, INPUT, FLAGS =0,1 
$$*FORTRAN. E, F=2 

3-4. 1.2 ESKP-Statement 

The ESKP-Statement has the form: 
:ESKP 

Compilation of an ESKP-statement does not have any effect. Normal compilation 
sequence continues. An ESKP-statement must always close a conditional -compile block, i.e., 
each ESKP-statement must be preceded by a matching skip-statement. If an error is detected in 
an ESKP-statement, a warning message is issued and the statement Is ignored by the compiler. 
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3-4. 1.3 Use of Conditional -Compilation 



The conditional -compilation technique may be used in producing different versions of 
a program, each having different capabilities and characteristics. It provides an important tool 
in producing diagnostic versions of a program. Using this technique, debug or diagnostic state- 
ments are made a permanent part of the program source. These statements are placed in the 
range of one or more conditional -compile blocks. Each of these blocks is controlled by one or 
more compilation flags. These blocks may be set up in such a way as to provide different levels 
of debugging information for different combinations of compilation flags. For normal execution 
purposes, ail debugging information is excluded from the program during compilation, by select- 
ing an appropriate combination of compilation flags. A diagnostic version of the same program 
may also be generated without making any changes in the program source. This is achieved by 
recompiling the same program with appropriate compilation flags set to compile the desired 
debugging information. 



ments: 



The following example illustrates the use of in-line conditional -compile control stote- 

Example: 

DIMENSION ID (6) 



DO 1 1=1,6 

CALL GETCHR (ICHAR,MODE) 
:SKFZ 2 

WRITE (-, 100) I,ICHAR,MODE 

100 FORMAT (16, A6, 16) 
:ESKP 

IF(MODE. LT.0)GOTO 2 
ID(I)= ICHAR 

1 CONTINUE 
CALL GETCHR (ICHAR,MODE) 
IF (MODE. GE. 0) CALL ERROR 

2 CONTINUE 
:SKFZ 1 

WRITE (-,101) ID, ICHAR 

101 FORMAT (6A1, A6) 
:ESKP 

The above example obtains a FORTRAN identifier in the singly dimensioned array ID 
and its delimiter in ICHAR. Subroutine GETCHR returns next character from input stream and 
its MODE. The example contains two conditional -compile blocks, set up to produce two levels i 
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of debugging information. The first conditional -compile block is controlled by the compilation 
flag number 2. If this flag is "on" at compile time, the first conditional -compile block will be 
compiled. This will cause I, ICHAR, and MODE to be printed during each iteration of the DO- 
loop. If the flag number 2 is "off" at compile time, this output is not produced during execution. 
The second conditional -compile block is controlled by the compilation flag number 1. If this 
flag is "on" at compile time, the second conditional -compile block will be compiled. This will 
cause the identifier ID and the delimiter ICHAR to be printed. If the flag number 1 is "off" at 
compile time,, this output will not be produced during execution, 

3-4.2 Option Control Statements 

The Harris FORTRAN Compiler provides various options for compilation of source pro- 
grams. These compile-time options may be turned "on" or "off" using in-line option control 
statements. 

The option control statement has the form: 

:n], n2r . . ./ nj, . . . , n^ 

or 

:NO n],n2A •••/ nj, ..., n^^ 

where n; is a compile-time option name. 

A compile-time option name consists of two or more alphanumeric characters, the first 
of which Is a letter. Only the first two characters of a compile-time option name are used to 
Identify the complle-tlme option. 

The first form of the option control statement defines an option -on control statement, 
compilation of which causes the specified compile-time options td~be turned "on". The second 
form of the option control statement -defines an option -off control statement, compilation of 
which causes the specified options to be turned "ott". The Assembly mode option or the ENd 
assembly mode option may not be used in an option-off control statement. 

Examples: 

:LIST, OBJECT LISTING, TR 

:NO OBJ,MAP OUTPUT, WALKBACK 

Each compile-time option, excluding the ASsembly mode and ENd assembly mode 
options, is assigned a bit in the Job Control option word. Under DMS/DOS/TOSAOS, each 
option -bit (0-23) is assigned a system option number (0-23), and It may be turned "on" or "off" 
using the $OPTION command of the Job Control. Under VULCAN, each option-bit (0-23) is 
assigned a single character Job Control option (A-X), and it may be turned "on" or "off" using 
the SO (Set Options) command of the Job Control. In this case, option -bits may also be turned 
"on" using the options -specification field of Job Control commands or Processor Calls. 

The value of a compile-time options remains unchanged during compilation until changed 
using in-line option control statements. Most of the compile-time options may be changed 
(turned "on" or "off") at any point in the program. However, a group of compile-time options 
may be changed for a new program unit (main program or subprogram) only before any FORTRAN 
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statement, excluding comments, is compiled for the new program unit. That is, these compile- 
time options may not be changed within a program unit. Compile -time options included In this 
group are: 

1. DOuble precision option 

2. LOng address generation option 

3. WALK-back code generation option 

4. FATAL compilation errors only option 

During compilation, option names specified on an option control statement are processed 
from the left to right. After processing each option name, the associated compile time option is 
turned "on" or "off". If an error is detected in an option control statement, processing of the 
option control statement is terminated. However, any compile-time option changes performed 
prior to the occurrence of the error remain effective. 

3-4.3 Initial Values of Compile-Time options 

At the start of compilation of a program, the FORTRAN Compiler obtains the Job Con- 
trol option word from the operating system. The value of each option-bit in the option word 
determines the initial value of the associated compile-time option. In most cases, the cdmpile- 
time option is set to the value of the associated option-bit, i.e., if the option-bit is "on", the 
associated compile-time option is turned "on", etc. In other cases, the compile-time option is 
set to the opposite value of the associated option-bit, i.e., if the option-bit is "on", the 
associated compile-time option is turned "off", etc. The ASsembly mode option and the 
ENd assembly mode option are initially turned "off". 

Table 3-3 lists all compile-time options with their two character option names, associ- 
ated system option under DMS/DOSAOS/ROS, associated Job Control option under VULCAN, 
and the value of the compile-time option when the associated option is "on". 

3-5 COMPILE-TIME OPTIONS 

This section describes various compile-time options processed by the FORTRAN compiler. 

1. DOuble precision option - (Extended Compiler Only) - If this option is "ori" at 
compile time, all implicit real variables and constants are typed as double pre- 
cision, and calls to FORTRAN real functions are replaced by calls to their double 
precision counterparts. 

Example: If the Double precision option is "on", 

A-SIN (B)+1.3 
is equivalent to: 

DOUBLE PRECISION 

A = DSIN (B)+ 1.3D0 

This option may not be changed within a program unit using in-line option control 
statements. 
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Table 3-3 Compile-Time Options 



OPTION 



* Double Precision 

Object Listing 

Extended Object Listing 

Map Output 

*Long Address Generation 

Triad Output 

*Walk-Back Code Generation 

Abnormal Subjicript Redefinition 

Additional Subscript Optionization 

Computed GOTO Checking Code 
Generation 

Debug Statement Compilation 

Ignore Blank Statements 

Skipped Statement Listing 

Indented Listing 

Optional Confrrol Statement Listing 

Source Statement Listing 

Sequence Number on the Left 

Character Code Conversion 

*Fdtal Compilation Errors Only 

Assembly Mode 

End Assembly Mode 



Option 
name 
(O) 


Associated Option 
(A) under 


Relationship 
between 
O and A 


VULCAN 


DMS/DOS/ 
TOS/ROS 


DO 


D 


4 


0=A 


OB 


O 


5 


0=A 


EX 


X 


6 


O-A 


MA 


M 


8 


0=. NOT.A 


LO 


L 


9 


O-A 


TR 


T 


10 


C'=A 


WA 


W 


11 


C'=A 


AB 


A 


12 


Ci=A 


SU 


S 


13 


Ci=A 


GO 


I 


14 


0=. NOT. A 


DE 


G 


15 


0=A 


IG 


B 


16 


0=.NOT.A 


SK 


K 


17 


0-. NOT. A 


IN 


P 


18 


0=A 


OP 


R 


19 


O-.NOT.A 


LI 


E 


20 


0=.NOT.A 


SE 


N 


21 


0=A 


CH 


C 


22 


0=A 


FA 


F 


None 


0=A 


AS 


None 


Nome 


None 


EN 


None 


None 


None 



*These options may not be changed within a program unit using in-line control statement. 
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OBject listing option - If this option is "on" at compile time, the code generated 
Byl"he compiler is output to the list out device along with the normal FORTRAN 
output. If the source statement Listing option is "off", this ou'put is suppressed. 
The object listing format is: 

AAAAA XXX yyyyy B cccccccc 

where: 

AAAAA is the relative address of the generated instruction, 
XXX (Extended Compiler Only) is the instruction mnemonic, 
yyyyy (Extended Compiler Only) is the link loader code (refer to link 

loader documentation), and 
cccccccc is the link loader load word. 

3. Extended Object Listing Option - If this option is "on" at compile time, the code 
generated by the compiler during the map output is output to the list out device 
along with the normal map output. This code includes string back definitions and 
locations of various scalers and constants used in the program unit. This dutput is 
in the same format as for the object listing output. This option is normally useful 
only to a system programmer. If the OBject listing option or the MAp ouput option 

is "off", this output is suppressed. j 

4. MA p output option - If this option is "on" at compile time, a map is output when 
an END statement is detected. The map output contains all scalers, arrays, state- 
ment numbers, etc., and their relative addresses. If this option is "off" at compile 
time, the FORTRAN map output is suppressed. 



5. LOng address generation option - If this option is "on" at compile time, the code 
generated by the compiler correctly accesses data in common in the upper memory 
map (over 32 K). Programs or subprograms will also correctly access internal 
arrays. This option may not be changed within a program unit using in-line option 
control statements. 

6. TRiad output option - If this option is set at compile time, several tables generated 
By the compiler during an expression scan are output in a partially symbolic formot. 
This option is normally useful only to a system programmer. 

7. WA Ik -back code generation option - If this option is "on" at compile-timfe, 
additional code is output within each program module such that a source level 
error message is output during any execution contingency. See Section 3-^3 for 
a more complete discussion. This option may not be changed within a program 
unit using in-line option control statements. 

8. ABnormal subscript redefinition option - If this option is "on" at compile time, 
tHe automatic inter statement optionization performed by the compiler is disabled, 
i.e., subscripts are recalcuated at each statement. This option is ufeful only if 
redefinition of subscripts during execution occurs in an abnormal fashion. See 
Section 5 for a more complete discussion. 
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9. Additional Subscript optimization option - If this option is "on" at compile time, 
saved subscrTpt calculations using variables in COMMON are ncjt determined to 
be invalid after a subprogram call. This option should not be used if variables 
in COMMON are used as subscripts and modified during subprogram calls. See 
Section 5 for a more complete discussion. 

10. Computed GOTO checking code generation option - If this option is "on" at 
compile time, additional code is generated by the compiler to check the range 
of the computed GOTO variable. If the value of the variable is out of range, 
the additional code will transfer control to the statement following the computed 
GOTO statement. 

11. DEbug statement compilation option - If this option is "on" at compile time, the 
"D" in column 1 of a debug statement is replaced with a blank and the statement 
is processed as a normal FORTRAN statement. If this option is "off" at compile 
time, debug statements are treated as comments and ignored by the compiler. If 
the Assembly mode option is "on", this option does not have any effect. 

12. IGnore blank statements option - If this option is "on" at compile time, blank 
statements (columns 1-72 blank) are treated as comments and ignored by the 
compiler. If this option is "off" at compile time, blank statements are treated 
as normal FORTRAN statements. 

13. S Kipped statement listing option - If this option is "on" at compile time, con- 
ditiona I -compile control statement^ skipped statements of a conditional - 
compile block, and skipped debug statements are listed by the compiler. If this 
option is "off" at compile time, these statements are not listed by the compiler. 
If the source statement Listing option is "off", this option does not have any 
effect. 

14. INdented listing option ■■ If this option is "on" at compile time, automatic 
Tnclentation is performed by the compiler while listing source statement. See 
Section 2-5 for a more complete discussion on indented listing. If the source 
statement Listing option is "off", this option does not have any effect. 

15. Listing Option of OPtion Control statements - If this option is "on" at compile 
time, option controTstatements are listed by the compiler. If this option is 
"off" at compile time, option control statements are processed but not listed by 
the compiler. If the source statement Listing option is "off", this option does 
not have any effect. 

16. Source statement Listing option - If this option is "on" at compile time, FORTRAN 
source statements "one listed by the compiler. If this option is "off" at compile 
time, listing of valid statements (FORTRAN and in-line control statements) is 
suppressed and only errors are listed. 

17. SEquence numbers on left option - If this option is "on" at compile time, the source 
Tme sequence number will be output to the left of the line, separated from the rest 
of the line by a colon (:). This is useful if the output list device is a teletype or a 
display terminal. 
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18. CHa racter code conversion option - If this option is "on" at compile time, the 
025 characters ?@% & # are converted to "'() += on input by the compiler. This 
is for compatibility between various keypunch character sets. 

19. FAtal compilation errors only (VULCAN only) - If this option is "on" at compile 
ITme, only fatal compilation errors result in a system error message. If this option 
if "off" at compile time, any compilation error results in a system error message. 
Fatal errors always cause a system error message. This option may not be changed 
within a program unit using in-line option control statements. 

20. ASsembly mode option - If this option is "on" at compile time, all ensuing source 
statements (excluding control statements) are treated as assembly language state- 
ments. The compilation mode is returned to normal FORTRAN compilation mode 
upon encountering an ENd assembly mode option on an option control statement. 
This option may not be used in an option-off (the NO option prefix) control 
statement. This option does not have any option -bit assigned to it. 

21. ENd assembly mode option - If this option is "on" at compile time. Assembly mode 
[Flurned "off" and normal FORTRAN compilation is carried out. This option may 
not be used in an option -off (the NO option prefix) control statement. This option 
does not have any option-bit assigned to it. 

3-6 DEBUG STATEMENTS 

Debug statements, as the name suggests, provide an important tool in producing diagnos- 
tic version ot a program. This extension is available only in the Extended FORTRAN Compiler, 
A source input line having a "D" in column is defined as a debug statement. Compilation of 
debug statements depends on the value of the DEbug statement compilation or B15 (DMS/'fDOS/ 
TOS/ROS) or "G" option. If the option is "on" at compile time, the "D" in column 1 of a debug i 
statement is replaced with a blank and the statement is processed as a normal FORTRAN statement. 
If the option is "off" at compile time, debug statements are treated as comments and they are 
ignored by the compiler. 

A program may contain any number of debug statements. Debug statements may be used 
as continuation lines of anv statement. It must be noted that the statement number field of debug 
statements is limited to only four columns. As compared to in-line conditional -compile control 
statements, the debugging information produced by debug statements is lim'ited to only one level. 
This is due to the fact that either all debug statements are compiled or all are skipped. 

The following example illustrates the use of debug statements: 

Example: 

DO 100 1=1, N 

TIME- TIME + DELTA 

FORCE = FUNC1 (TIME) 

DISPL = FUNC2 (FORCE) 
D PRINT, FORCE, DISPL 

100 CONTINUE I 
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Th« above example contains a debug statement in the range of a DC-loop. During 
each iteration of the DO-loop, the FORCE and DISPL are computed using functions FUNCl and 
FUNC2 respectively. If the DEbug statement compilation option is "on" at compile time, the 
values of FORCE and DISPL are printed at the end of each iteration of the DO-loop. If the 
option is "off" at compile time, the values are not printed. 
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SECTION IV 
NTERFACING FORTRAN AND ASSEMBLER GENERATED MODULES 



4-1 CALLING FORTRAN GENERATED SUBPROGRAMS 

The FORTRAN compiler generates entrances to a 11 subprograms with a mechanism to pass 
the arguments if any, whether subroutines,functions or statement functions. Anv FORTRAN sub- 
routine expects to find the address of the calling instruction plus one in the (J) register,th^refore 
it should be called with a BLL instruction. An argument list should follow the BLL instruction 
containing the addresses of the exact number of arguments that the subprogram is expecting. 

For example, the FORTRAN subroutine that begins with the statement: 

SUBROUTINE ALPHA (arg^, arg2, ..., arg^) 

should be called by an assembly language program in the following manner: 



address of first argument 
address of second argument 



L 


BLL 


$ALPHA 


L+1 


DAC 


arg^ 


L+2 


DAC 


arg2 



L+n DAC org address of nth argument 

L+n+1 . control is returned to this location 



4-2 CALLING OF FORTRAN FUNCTIONS 

In addition to the subprograms generated by both the SUBROUTINE and FUNCTION 
statements, FORTRAN functions (subprograms that begin with a FUNCTION statement) return a 
function value via the registers. The particular register depends upon the data type of the 
function. Table 4-1 lists the registers used for each data type. 
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4-2 CALLING OF FORTRAN FUNCTIONS (CONT'D. ) 

Table 4-1. Regisfer Location of Function Values 







Result Reg!ster(s 


)** 


Data Type 


SAU 


non-SAU 


Integer 


(A) 






(A) 


Logical 


(A) 






(A) 


Real 


(X) 






(D) 


Double Precision 


(X) 






(D) 


Complex (Real Part) 


(X) 






(D) 


Complex (Imaginary Part) 


(D) 






(F$IMAG)* 



*F$IMAG is a double word which resides in the FORTRAN library and is linked into FORTRAN 
programs whenever complex operations are specified. Hence, this pseudo-register may be 
accessed by an external reference to $F$IMAG. 

**The appropriate condition register will also be set to reflect the result of the function call. 

The user of FORTRAN library functions or FORTRAN compiler generated functions must 
take this into account when calling these functions from assembly language projgrams. 
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FORTRAN -CALLABLE ASSEMBLER LANGUAGE PROGRAMS 



The FORTRAN statement: CALL ALPHA (org,, argj/ . . . / org ) generates the assembly 
language equivalent of; 



L 


BLL 


$ALPHA 




L+1 


DAC 


arg^ 


address of 1st argument 


L+2 


DAC 


argj 


address of 2nd argument 



address of nth argument 



L+n DAC org 

n 

L+n+1 control must return to here. 



The addresses in the argument list may be indirect, therefore the subprogram ALPHA 
should access these addresses by use of the GAP instructions. 
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4-3 FORTRAN -CALLABLE ASSEMBLER LANGUAGE PROGRAMS (CONT'D. ) 

To illustrate a method of accessing arguments supplied by a call from a FORTRAN compiler 
generated program, the following is the assembly language equivalent of what the compiler 
generates at the entry to a SUBROUTINE or FUNCTION with no multiple entry points and having 
at least one argument: 

The statement: SUBROUTINE OR FUNCTION ALPHA (arg^^argj,. . . ^arg^) generates: 



XDEF 


ALPHA, ENTRY 


RORG 


(See Note 1 ) 


BLOK 


n+ 1 


ENTRY TNK 


n 


GAP 


1 


TIM 


ENTRY, K transfer argument list 


BWK 


*_2 


TJM 


ENTRY -(n + 1) save return 



USER'S First Instruction 

To illustrate a method of accessing a FORTRAN compiler generated program with no 
arguments, the following is the assembly language equivalent of what the compiler generates at 
the entry to a SUBROUTINE: 

The statement: SUBROUTINE ALPHA generates: 

XDEF ALPHA, ENTRY 

RORG (See Note 1 ) 

BLOK 1 

ENTRY TJM ENTRY -1 save return 

USER'S First Instruction 

To illustrate a method of accessing arguments supplied by a call from a FORTRAN 
compiler generated program with alternate entry points to the first named identifier: 

The statement: SUBROUTINE OR FUNCTION ONE (arg^,arg2,arg^), 
TWO (arg^,arg2,arg^), THREE (arg^,argyarg2,arg^f 
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XDEF 
XDEF 
XDEF 
RORG 

BUG 

1 BUG 

2 BUG 
BLOK 

ONE TNK 
GAP 
TIM 
BWK 
TJM 



ON1-:,0 

TWO, 1 

THREE,2 

(See Note 1) 

ONE 

TWO 

THREE 

n + I where n = number of different arguments (6) 

m where m = number of arguments in first identifier (3) 

1 

ONE - (n-m), K transfer argument list 

*-2 

ONE - (n + 1) save return as exit address 



USER'S First Instruction 

To illustrate a method of accessing arguments supplied by a call from a FORTRAN 
compiler generated program to an alternate entry point: 

The iitatement SUBROUTINE or FUNGTION ONE (arg^,arg2,arg3), TV/O (arg4,arg2, 
arg^, THREE (arg^,argyarg2,arg^) 

assume the statement: 

ENTRY THREE 

then the following code would be generated: 



THREE 



BUG 

GAP 

TIM 

GAP 

TIM 

GAP 

TIM 



+ 2 (J) + 2 where j = number of arguments in the ENTRY 
identifier's dummy list (4) 



Exit address + org, relative dummy number (1) 



Exit address + argc relative dummy number (5) 



Exit address + arg2 relative dummy number (2) 
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GAP 1 

TIM Exit address + org, relative dummy number (6) 

TJM Exit address 

user's First Instruction 

To illustrate a method of accessing a FORTRAN compiler generated ENTRY point to 
a program with no arguments: 

assume the statement SUBROUTINE . . . ,NOARG,. . . 

assume the statement 

ENTRY NOARG 

The the following code would be generated; 

BUG * + 2 

NOARG TJM Exit address 

user's First Instruction 

NOTE 1 : The RORG is not necessarily at zero if the subprogram contains DIMENSION 
or DATA statements. 

From this point, any access to a dummy argument can be made safely by using an indirect 
reference to the point in the newly generated argument list, since the GAP instruction has 
eliminated all indirect levels. 

The previous examples suggest methods of accessing arguments, argument addresses 
and alternate ENTRY points to SUBROUTINES or FUNCTION subprograms; the programmer 
may use any method he wishes. 

It must be remembered that if the calling FORTRAN program assumes that the subprogram 
is a function (i. e., calls it within an expression as opposed to using a CALL statement), the 
result of the function must appear in the proper register when control is returned to the calling 
program (see Table 4-1). In addition the appropriate condition register must be set to reflect 
the result of the function. 



4-5 



Revision A 
Februorv, 1975 



SECTION V 
OPTIMIZATION 



5-1 GENERAL 

This section describes the object code optimization automatically performed by the 
FORTRAN compiler. 

5-2 COMPILER OPTIMIZATION 

The FORTRAN compiler automatically produces optimized object code in several areas. 
This optimization is all local, that is, each statement is optimized independently of other state- 
ments. These optimizations take several forms. 

5-2. 1 Sub-Program Entries 

For a sub-program with no arguments, the subprogram entry consists of a single store 
instruction to save the linkage address. When there are three or more arguments, a four ir^struc- 
tion loop is set up to obtain argument addresses. If only one or two arguments are present, then 
an expanded form of this loop is used which takes two instruction for one argument and four 
instructions for two arguments. Thus with one or two arguments, no extra storage is used, and 
execution time is decreased. An argument passing subroutine is not used. 

5-2. 2 IF Statements 

The program flow branching performed after an arithmetic IF is optimized. If two of the 
result branches to be used are the same, then the appropriate branch instruction is used to branch 
on either result condition. 

5-2. 3 Immediate Instructions 

The Harris Series 6000 computers contain an extensive set of immediate or operand 
instructions. These instructions are automatically used by the compiler whenever possible. Their 
use causes a decrease in memory access time since the constant is part of the instruction and does 
not need to be independently fetched. A decrease in storage is also possible, since the constants 
do not need to be stored. 

5-2.4 Subscripts 

When an array variable is subscripted with a constant, the element address referenced is 
calculated at compile time. This enables an array references to be as efficienfas a scalar reference, 
if the subscript is a constant. If the subscripts of an array is a variable, but contains a constant 
(e.g., A(I,3) or A(I+5)) then the constant is incorporated into the effective array base address. 
Thus the subscript calculation is made more efficient. 
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5-2.5 Sub-Expression OpHmization 

During the processing of a statemenf involving arii"hmetic computations, tine FORTRAN 
compiler recognizes calculation sequences that are similar. When such common sub -expressions 
are recognized, the object code is optimized so that the sub -express! on is calculated only once. 
When it is calculated, the value is saved in a temporary location until it is needed in the second 
expression. This optimization extends to all sub -expressions within the statement, including 
subscript calculations. 

5-2.6 Logical IF Optimization 

If a logical IF is a simple logical IF, that is, if it consists of a single relational operator 
and no . AND., . OR., .XOR. , or . NOT. operators, then the normal creation of a logical value 
is bypassed and a conditional branch is used immediately. 

For example, the following logical IF will generate the following code: 

IF (I . LT. J) GO TO 55 

TMA I 

SMA J 

BON $55 



5-2.7 Intrinsic Functions 

Certain intrinsic functions are converted to in-line instructions. The resultant code will 
save execution time and/or storage. In no case will either be sacrificed. The following intrinsic 
functions are optimized: 

ABS, DABS, lABS, FLOAT, IFIX, INT, IDINT, SNGL, DBLE and REAL 

5-2.8 Simple Integer Expressions 

Certain simple integer expressions will make use of some specialized machine opcodes. 
A "TFM" or a "TZM" will be used when setting an integer to -1 or zero (or a logical variable to 
.TRUE, or .FALSE. ). 

An "AAM" will be used when the variable being assigned is also added in to the 
expression. As a special extension to this, "AUM" will be used if the increment is 1. 

Examples: 

Generated Code 

TZM 1 

TFM J 

TMA K 
SMA J 
AAM I 



FORTRAN 


1 = 


J = 3-4 


1 = K-J+l 
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5-2,8 Simple Integer Expressions (Continued) 

FORTRAN Generated Code 

L=L+1 AUM L 

L = L - 1 TNA 1 

AAM L 

5-2. 9 Index Registers 

Whenever possible, array references are done thru index registers. This results in 
storage and time savings for several reasons. 

An indirect reference does not need to be made to the calculated element address, thus 
saving the indirection time and the storage of the calculated value. 

When calculating the subscript value, the array base need not be added in since it is 
incorporated v/ithin the indexed reference. 

Different arrays accessed with the same subscript may use the same index register. This 
is also due to the incorporation of the array base address in the array referencing instruction. 

Example: 

IA(I) = IA(I) + IB(I)*IC(I) 

TMK I 

TMA IC (0), K 

MYM IB (0), K 

AAM I A (0), K 

5-2. 10 Inter Statement Optimization 

Whenever possible, subscript calculations are not re-calculated from statement to 
statement. This occurs v/ith subscripts in index registers as well as complete array references 
stored in temp locations. 

At the termination of one statement and the initiation of the next, several tests are made 
fro determine the validity of saved subscripts. Depending upon the results of these tests; none, 
or more, or all of the saved subscript calculations are determined invalid. Subscripts are 
determined to be invalid if: 

1. A variable which is defined by appearing on the left side of an equal 
sign, is used in the subscript calculation. 

2. A variable which appears in a calling sequence to a function or 
subroutine, is used in the subscript calculation. 
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5-2, 10 Inter Statement Optimization (Continued) 

3. They were calculated in the object of a logical IF. 

All saved subscript calculations are determined to be invalid if: 

1. The new statement has a statement number. 

2. The previous statement was: 

a) a statement function definition 

b) an ENTRY statement 

c) a DO statement 

d) a DECODE statement 

e) a READ statement 

f) an I/O statement with an implied DO list 

3. In-line assembly code has been entered or Just exitted. 

It is (;)ossible, however, for a subscript calculation to become invalid in spite of the 
above tests. If a variable used in a subscript calculation is in COMMON it may be modified in 
a subroutine call. A subscript variable may also be modified by being equivalenced to a variable 
which is modified. 

In this case, the inter statement optimization may generate erroneous results. If this 
occurs, there are two methods to correct the problem. 

1. Place a statement number on all statements in which subscripts need 
to be recalculated. This will cause all subscripts to be recalculated 
as they are needed as explained above. 

2, If method 1 is nof desired because of program complexity, option "A" 
or B12 (see Section 3-4) should be set during compilation. This will 
cause subscripts to be recalculated at each statement. Note: It should 
be carefully determined that the problem as described above is actually 
occurring since the use oF this option may significantly increase run- 
time and core storage. Note: The "A" or B12 option only affects inter 
statement optimization, it has no effect upon the optimization as 
described in preceding paragraphs. 



Example: 






lA (1) - 


14 
TMK 
TOA 
TAM 


1 

14 

IA(0), 


B(J) = 


13.5 
TMJ 
AJJ 
TMX 
TXM 


J 

=13.5 
B(0), J 
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5-2. 10 Inter Statement Optimization (Continued) 
Example (Continued) 



C(K) - IA(l+4)* B(J + 1) 

TMI K 



All 

TMX B(1),J 

TMA lA (4) , K 

MAX 

TXM C (0) J 
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SECTION VI 
IN-LINE CODE 



6-1 INTRODUCTION 



6-1.1 Scope of Extension 



This extension processes in-line assembly language mnemonics, symbolic labels, statement 
numbers and operands embedded within a FORTRAN IV main program, subroutine or function sub- 
program. 

6-1.2 General Description 

The in-line extension to the Series 6000 Extended FORTRAN Compiler is a one pass 
processor system. All source language statements provide a one-to-one map into machine language 
instructions and single or multiple data word configurations. 

The in-line assembly mode of the compiler is turned "on" using an in-line option 
control statement containing "AS" (Assembly) as an option name. The in-line assembly 
mode is turned "off" using an in-line option control statement containing "EN" (End 
Assembly) as an option-name. Any section of in-line assembly code may contain any 
number of in-line control statements (See Section 3). 

Source statements may contain a statement label, a mnemonic instruction or pseudo- 
operation, an operand field, and a comments field. Target language is Series 6000 Machine 
Language which is listed as a binary file whose record format is identical to the input recoj-d 
format of the Link Loader. 

6-2 SOURCE LANGUAGE FORMAT 

6-2. 1 Scope 

This section describes the format for source input statements to the Series 6000 In -Line 
Extension to the FORTRAN IV compiler. 

6-2.2 Statement Number or Label Field 

The statement number field may contain an asterisk (*) in column 1, a statement number, 
a symbolic label or may be left entirely blank. 

An asterisk in column 1 causes all succeeding columns in the line to be treated as 
comments. No binary output is generated. 

Statement numbers conform to the rules of FORTRAN IV. The statement number is 
assigned the address of the instruction or pseudo-operation being labeled. Note that imbedded 
blanks may not be present within the statement label. 
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A symbolic label must begin with an alphabetic character, contain not more than 6 
characters and contain no delimiting characters as defined by the section "SYMBOLIC LABELS". 
The label is typed either implicitly or explicitly and may be used in a FORTRAN statement pro- 
vided the label does not contain special characters. 



Examples (Valid) 



1 


*** 


2 

RATE2 

F$GO 


RORG 
DATA 
TOA 


Examples (Invalid) 





1.3 
A+B 
lABC 
=WXYZ 



NOP 
BLOK 
QSS 
TAM 



2000 

3.0E6 

1 



4 

■2 

D3(20) 



Special Character 

Delimiter 

Not Numeric 

First Char not Alpha 



Note that a statement label (if present) must begin in column 1. 

6-2.3 Operation Field 

The operation field begins with the first non-blank column after the statement label 
or the first non -blank column if no statement label is present (column 1 is blank). The operation 
field may contain a three-character computer instruction mnemonic, or a three -or -four character 
pseudo-operation code. 

An asterisk (*) following a three character computer instruction mnemonic is used to 
indicate an Indirect memory reference except in the case of the computer input/output instructions, 
where the asterisk is used as an override or merge specification. These special cases are defined 
in the Macro Assembler General Specification AA61649, Table A-14. 

6-2.4 Operand and Comments Fields 

The operand field begins with the first non-blank column after the operation field. This 
field may not contain any imbedded blanks except within literal constants (e., g. , " " or 3HA A). 
The comments field begins with the first non -blank column after the operand field., If the instruc- 
tion mnemonic requires no operand, then the comments field begins immediately after the opera- 
tion field. 

This Field may contain an operand constant, address, etc., as indicated by the particular 
instruction. (Reference the Macro Assembler General Specification AA61649, Tables A-4 to 
A-19 for a detailed listing. ) 

6-2.5 Sequence Field (Columns 73-80) 

The sequence field may contain any identification (e.g., a card sequence number) the 
user desires. This field Is Ignored by the in-line portion of the compiler. 
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OPERAND FORMATS 



6-3. 1 Scope 

This section describes the operand formats used with the in-line extension of the FORTRAN 
IV compiler. A list of the Series 6000 Instruction mnemonics and their permissible operand formats 
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is contained in the Appendix of the Macro Assembler General Specification AA61649 manual. 
Exceptions are noted as encountered in this document. 



6-3. 2 Gurrent Location (*) 

An asterisk (*) in the operand field indicates that the relative location of the current 
instruction is used as the value of the asterisk (*). 



Examples (Valid) 

BUG 
TOA 



*+2 SKIP THE NEXT INSTRUGTION 

LABEL-* ABSOLUTE DIFFERENGE 



6-3.3 Symbolic Labels 

A symbolic label in the operand field indicates that the address associated v/ith th^ label 
is to be used as the operand address. A symbolic label may be declared as common, an array, 
data reference, statement number, dummy, variable, function results or external. Labels assume 
the type (REAL, INTEGER, etc. ) as declared by the associated FORTRAN program. A symbolic 
label must begin with an alphabetic character and is delimited by a plus (+), minus (-), quote ("), 
blank ( ), comma (,), apostrophe ('), left parenthesis "(", or right parenthesis ")". Only the 
first six characters are used to determine the uniqueness of the symbolic label. 



Examples (Valid) 



TMA ^ 
TME 
TLO 
BUG 


RATE12 
F/LOAD 
A. *:= 
B$ADD 


Examples (Invalid) 




TMA 
TME 
TLO 
BUG 


12A3 
A'B 
A+B 
AR(AY 



alphanumeric label 

Note: Only in-line code allows 

special characters in the symbolic 

label 



numeric 

delimiter 

both must be defined first 

subscript 



6-3. 3. 1 Gommon 

Labeled and blank GOMMON are used as defined by the associated FORTRAN program. 
Should the user reorder or redefine the GOMMON areas, then the generated addresses or values 
are subject to change. 

Examples (Valid) 

GOMMON ITOP,VOLT,WATT,GOMARY(2, 3,4), BOTTOM 

GOMMON/LABEL/AMP,POWER,POLE,POST 

GOMMON/DIFLAB/HOT,GOLD,SOUTH,EAST,WEST,NORTH 
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Examples (Valid) Cont'd. 

:ASSE 

ZZZ* WATT, K position 3 indirect indexed 

BSL 2+AMP '°^ 2 of block label 

TOA BOTTOM-ITOP-1 length of blank common 

*THE OFFSET OF DIFFERENT LABEL COMMONS ADJUSTED BY BLANK COMMON 

TDM NORTH -POWER+WATT position '13 

TAM COMARY(3>fl word 6 of COMARY 

TOA HOT-COLD+3 positive 1 



Examples (Invalid) 



TLO 
TOA 



LABEL 
HOT-COLD 



new scalar variable 
negative value 



6 -3. 3. 2 Array 

Arrays are used as defined by the DIMENSION statement or other FORTRAN area 
declaration statements of the associated FORTRAN program. An array is addressable as 

1) NAME without subscripts refers to word 1 of the array. 

2) NAME (C) with one level of subscripting for any n dimensional array. The 
constant C references the first word of item C automatically adjusted by the 
declared array type. 

3) NAME (i,j,k) where i,j and k are constants and correspond to the correct 
number of subscripts declared for the array NAME. 

A dummy array name is not subscripted because ths address of the array is not known 
until the execution of the related subprogram. The user should use indexing and/or indirecting 
when referencing dummy array values. 

Examples (Valid) 



:ASSI 



FUNCTION SUB (IDUM, ADUM) 

DIMENSION DRPL (12), D3 (3,3,3), ARAY (10), ADUM (100) 



TLO D3 

TMI D3+5 

BLOK D3(2)-D3(l) 

BLL D3(8) 

BRL D3(2,3,l) 

TNA ARAY(10)-DRPL+2 



Examples (Invalid) 



TOA 
TMD 
TAM 
TME 



D3(l)-D3(2) 
D3(l,2) 
DRPL (-1) 
ADUM(2) 



address of first word 

contents of word 6 

words per item 

item 8 

item 8 also 

size of all dimensions 



negative value 

incorrect number of subscripts 

neg subscript 

dummy 
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6-3.3.3 Dafa Reference 



Constants as defined by the FORTRAN DATA statement are referenced via the s/mbolic 
identifier of the associated program. The symbolic label references the address of the first word 
of the respective data item regardless of the assigned type. 

Examples (Valid) 



integer 2 to A register 
difference of 1 word apart 
real 5. to SAU X register 
exponent of 3. 



negative value 
not a dimension 
no label RELAO 



DATA INT, REU RON( 


:ASSE 




TMA 


INT 


TOA 


REL-INT 


TMX 


RONG 


TMB 


REL+1 


Examples (Invc 


ilid) 


TOA 


INT-REL 


TME 


REL(2) 


TMD 


REL/RONG 



6-3.3.4 Statement Number 



The statement number is used to reference relative locations within the in-line code or 
to reference the address of FORTRAN statements. If a statement number appears as a label within 
a set of in-line code, then a path error is not Issued following a decision type FORTRAN state- 
ment. Operand statement numbers are preceeded by a dollar sign "S" and may not contain 
embedded blanks. Statement number labels may not contain leading or embedded blanks. 



Examples (Valid) 





sue 


$10 


3 4 5 


TOA 


$n-sio 


LABEL 


TMA* 


$345+5,1 


20 


BLOK 


10 


10 


TMD 


$2(>f2 




TND 


$10-LABEL+1 




TLO 


S30 




RETURN 


:ASSE 








TLO 


D3 


14 


BUC 


*+2 


:END 








I- 1 + 


1 



go to statement 10 
words between 11 and 10 
5 words plus loc $345 
10 words 



word 3 of blok 10 

size of space 

address of statement 30 



no path error 
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Examples (Invalid) 



TME 


-$4 


TMA 


$5+3 


TLO 


$1AB 


BUG 


$12 3 


RETURN 




:ASSIE 




TOA 


5 


TMA 


REL 


TME 


D3 (l,2,3)-4 


BUG 


INT 



:END 



1 = 1+1 



negative address 

statement number 5 undefined 

delimiter 

space terminates operand field 



path error 



6 -3. 3. 5 Dummy 



id the 



Dummy arguments provide a means of passing information between a subprogram and th« 
program that called it. Dummies point to the relative address which contains the address of the 
information desired. For details rererence the FORTRAN Gompiler General Specification AA6 15 16 
"FORTRAN - Gallable Assembler Language Programs" section 4-3. Dummy operands may be 
address adjusted but not subscripted. 

Examples (Valid) 

SUBROUTINE TEST (A,I,J,K,B,G) 

DIMENSION B(IOO) 
:ASSE 

TLO A+4 

TMK G 

TMA* I 

*SIMULATE SUBSGRIPTING 



TMK 
TMA 
TAM 



J 

4,K 

3,K 



NUMBER OF DUMMIES 



TOA 



G-A+1 



Examples (Invalid) 



TMA 
TOE 
TME 



A-G+1 

B(3) 

-I 



address of address of B 
address of G in main program 
contents of I from main prog 

address of J 
same as J(5) 
same as J(4) = J(5) 

count of dummies 



negative value 
subscript 
negative value 
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6-3. 3.6 Variable 

Variables are dafa whose values may vary during program execution and which are 
referenced with an identifier. Variables may be any of the FORTRAN data types. Symbolic 
labels or statement numbers may be used as variables. 



Examples (Valid) 

TEM ADDR 

TAM ADDR+1 

TMX I 

Examples (Invalid) 

TMA A'4 

TME B+2 

TMI C(l) 



single word 
double word 



symbol syntax 
If B not defined 
if not dimensioned 



Note that under VULCAN, new variable names are immediately allocated. Thus if it is 
desired to create some special data structure within a variable, then it should be set up within the 
in-line code before its first reference. For example: 



:ASSEMB 








ABC 


DATA 


1,2,3,4,5 




55 


TMR 


ABC 


is valid, bu 


:ASSEMB 










TMR 


ABC 






BUC 


$56 




ABC 


DATA 


1,2,3,4,5 


is not valid 



6-3.3.7 Function Results 

Within a function the identifier of the function subprogram is treated as though it were 
a scalar variable and must be assigned a value. The value returned for a function is the last one 
assigned to its identifier orior to the execution of a RETURN statement. 

Examples (Valid) 

FUNCTION DIFF (A,B,C) 
:ASSE 

TDM DIFF double word 

TLO DIFF address of result 

TMA DIFF first word of result 

Examples (Invalid) 

TAM DIFF+I not defined 

TME DIFF(3) not dimensioned 



6-3.3.8 External Requests 

An external request instructs the Link Loader to search a library for the desired name 
and load the named module. An unconditional external request is Indicated by a dollar sign ($) 
followed by a symbolic label. External labels may not be address adjusted. 



Examples (Valid) 

DAC 

TMA* 

BAC 



$F$ADD 
$A*. B,I 
$ EX IT, 2 



address of F$ADD 
contents Indexed 
byte external 
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Exa m pies (Invalid) 



TLO 


5+$A 


TIM 


$B+3 


TMA 


$A-$B 


DAC 


$$ABC 



address adjusted 

delimiter 

delimiter 

not true symbolic 



6-3.4 Absolute Constants 



Absolute constants in the operand field indicate that the integer constant (octal or 
decimal) is to be used as the operand address. The resultant value must be positive. 

Examples (Valid) 



TMA 


5 


absolute location 5 


TME 


■10 


absolute location '10 


Examples (Invc 


Hid) 




TAM 


-5 


neg address 


TMI 


3.2 


not integer 


DAC 


5-6 


neg address 


TME 


281 


not numeric 


TMA 


12345678962573418 


too big 


TME 


'18 


not all octal 



6-3.5 Address Arithmetic 

Any combination of the current location (*), symbolic labels, statement numbers, or 
absolute constants may be joined bv the plus (+) or minus (-) operations to define and address. 
Symbolic labels and statement numoers must have been defined before address adjustment is 
allowed with the desired items. Such a combination is referred to as an "operand expression". 

The mode of an operand expression is relative if the number of plus and minus signs 
preceding the relative labels (current location "*" included) are not equal. Ol'herwise, the mode 
of the operand expression Is absolute. 

Examples (Valid) 

relative 
absolute 
relative 
relative 



negative 
negative 
negative 
if negative 
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A 


TMA 


A+5 


B 


TOA 


B-A 


C 


TMA 


D3(1,2,3)-nS 




TMA 


B-A + C 


Exam 


iples (Invalid) 


A 


TMA 


-A-5 


B 


TOA 


A-B 




TOA 


D3(1) - D3(2) 




TME 


A -100 



6-3.6 Indexed Address Reference 

An operand address may be appended with an index reference by placing a comma {,) 
in the column to the immediate right of the operand address and following the comma with the 
index specification (I, J, K). For the details of the hardware indexing scheme refer to 
Series 6000 REFERENCE MANUAL DC 6024 COMPUTER SYSTEM. 

Examples (Valid) 

TMA 0, K true address in K 

TME 5,1 I + 5 locations 

TMI D3(1,2,3),J array indexed 

Examples (Invalid) 

TMA A,H H not an index 

TME B,-J Syntax 

TMI C, 1 1 not an index 

6-3. 7 Text 

Alphanumeric text may be used as an operand by the use of leading and following 
quotation marks (". . "). The text is right-justified in the instruction operand and any unused 
portion of the operand is zero filled. Text operands may not be used with address arithmetic. 
Up to two characters of text may be entered. The first text character may be any valid character. 
The second optional text character may be any character except a quote symbol. 



Examples (Valid) 



TOA 


"AB" 


COB 


nil II 


TOE 


1, ^u 


TOA 


II II II 


Examples (Invc 


ilid) 


TOA 


"ABC" 


TOA 


"A"" 


TOE 


"B 


COB 


"C" + 5 



AB 

quote symbol 
blank A 
quote comma 



too many characters 

delimiter 

delimiter 

Syntax 

6-3.8 Literal 

A literal is indicated by an equal sign (=) as the first character of the operand field, 
followed by a data or logical constant (reference DATA Section 2-3) to be assigned a nonprogram 
location and permits the address of that assignment to be used as the operand address. 

The expression mode of a literal is relative. 
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If the machine representaHon of a constant- is more than one word, the assigned address 
of the first word is used as the operand address. Any identical constants of the same type of either 
FORTRAN or in-line origin which require at least one full computer word are asiiigned the same 
location. 

Any memory reference instruction using a literal may not be appended with an indirect, 
index or address adjustment. 



Examples (Valid) 



TMD 


=12.5D-10 


TLO 


=(3.0,5.0) 


TMA 


=1 


TME 


=. TRUE. 


Examples (Invalid) 


TAM 


=5 


TMA 


=3 + 6 


TLO 


=IABEL 


TMA* 


=2 


TME 


=3,K 



double word 
complex 4 words 
one word 
logical 



to memory 
address adjusted 
symbol 
indirect 
indexed 



6-3.9 FORTRAN External 



Symbols defined by a FORTRAN EXTERNAL statement are permitted as in-line operands 
as outlined in this document under the topic of "Symbolic Labels - External Request". 

6-3. 10 Memory Referencing Boolean Instructions (Bit - Processor) 

Some of the bit-processor instructions require two operand fields separated by a comma. 
The second operand field must be numeric and comply with the requirements of each operation 
code. The operand requirements of the field sizes modes are listed in the Appendix of the Macro 
Assembler General Specification AA61649. 



Examples (Valid) 



DMH 
QBM 



1,1 
19,2 



and memory with H 
query bit of memory 



Examples (Invalid) 

QBM LABEL 



relative 
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6-4 PSEUDO-OPERATIONS 



6-4. 1 Scope 



This section describes the pseudo-operations that are processed by the in-line extention 
of FORTRAN IV extended compiler. 

6-4.2 RORG (Relative Origin) 

The RORG pseudo -operation sets the next instruction's program location to the contents 
of the absolute or relative expression in the operand field. If a symbolic label or a statement 
number is present, it is assigned the value of the operand expression. If symbolic labels or state- 
ment numbers are present in the operand expression, they must have been previously defined. If 
an operand error is encountered a no operation instruction replaces the RORG pseudo-operdtion. 

Examples (Valid) 



RORG 


5 




relative five 


RORG 


ARRAY (1, 


IJ) 




RORG 


LABEL 






RORG 


*-5 




if not negative 


RORG 


ARRAY(101)-ARRAY(1) 


rel 200 ^Q 


Examples (Invc 


jlid) 







RORG -5 negative 

RORG 40000 too big 

RORG $EXTRN external 

6-4. 3 BLOK (Reserve Memory) 

This pseudo -operation reserves a block of storage (n locations), (n = the value of the 
absolute expression in the operand field. ) If a symbolic label or statement number is present in 
the tag field, it is assigned the first location in the block. If symbolic labels or statement num- 
bers are present in the operation expression, they must have been previously defined. If an 
operand error is encountered, the BLOK pseudo-operation code is replaced with a no operation 
instruction. 

Examples (Valid) 



BLOK 10 




octal 12 v^ords 


BLOK $11 -$10 




if defined 


BLOK ARRAY 2 - 


■ ARRAY 1 


size * type 


Examples (Invalid) 






BLOK -10 




negative 


BLOK LABEL 




relative 


BLOK $SIN 




external 


BLOK 40000 




too big 
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6-4.4 DATA 

The DATA pseudo -operation opcsrand field may contain any number and combination of 
the data constants defined in the following paragraphs. 

If more than one item is present (items are separated by commas), they are assigned 
sequential memory locations. If a symbolic label or statement number is present, it is assigned 
the location of the first data item. There is no relationship between the FORTRAN typing of a 
symbolic label assigned to a DATA pseudo -operation and the operand field supplied by the user. 
In-line constants are coded in the same format as FORTRAN constants. Identical constants yield 
identical internal representation. 

6-4.4. 1 Single Integer 

A single integer data constant consists of an optional sign (+ or -) and 1-7 decimal digits. 
Single integer constants are contained in one computer word. The magnitude of an integer constant 
must not exceed 8,388,607. 

Examples (Valid) 

INT DATA +428 tvped integer 

REL DATA 1 the label REL is typed real 

6-4.4.2 Single -Precision Real 

A single-precision real data constant consists of an optional sign (+ or -), 1 or more decimal 
digits of which only 6+ most significant digits are retained, a decimal point, and followed by an 
optional decimal exponent. The exponent follows the numeric value and consists of the letter E 
followed by a signed or unsigned integer that represents the power of ten bv which the numeric 
value isLto be multiplied. The magnitude of the range of real numbers is about 2. 94X10-39 to 

1. 7X10"^°. A single-precision real constant is contained in two computer words. 

Examples (Valid) 

INT DATA 3. 14 the label INT is typed integer 

REL DATA 17E5 typed real 

DATA -3.2E-10 not labeled 

6-4.4.3 Double-Precision Real 

A double-precision real data constant consists of an optional sign (+ or -), 1 or more 
decimal digits of whichonly the 11+most significant digits are retained, a decimal point, and 
followed by an optional decimal exponent. The exponent follows the numeric value and consists 
of the letter D followed by a signed or unsigned Integer that represents the power of ten by which 
the numeric value is to be multiplied. The magnitude of the range of real numbers is about 

2. 94X10-39 to 1. 7X1038. A double-precision real constant is contained in two computer words. 

Examples (Valid) 

INT DATA 3. 14Dj3^ the label is typed integer 

REL DATA 17D5 typed real 

*THE FOLLOWING EXAMPLE CONSISTS OF SIX WORDS UNLABELED 
DATA -3. 2D-10, 3. 7D5, 4.6DhS 
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6-4.4.4 Octal Constants 



Octal constants 
leading zeros. 



An octal constant is designated by an apostrophe (') followed by 1 to 8 octal digits (0-7). 
nstants which are less than 8 digits are right justified in the 24-bit computer word with 



Examples (Valid) 



INT DATA '17 typed integer 

REL DATA '12345670 typed real 

*THE FOLLOWING EXAMPLE CONSISTS OF FOUR WORDS UNLABELED 
DATA '1, '3, '47, '256 



Examples (Invalid) 



DATA '-3 negative 

DATA '384 the digit 8 is not octal 

DATA ' 1 2345671 2345 too many digits 



6-4.4.5 Logical Constants 

Logical constants may assume either of two forms: 

. TRUE, which is equivalent to a DATA -1 
or 

. FALSE, which is equivalent to a DATA ^ 

These forms have the logical values "true" and "false", respectively. 
Examples (Valid) 

DATA . TRUE. -1 

DATA . FALSE. 

DATA .TRUE., .FALSE. -1,0 



6-4. 4.6 Complex 

Complex constants are expressed as an ordered pair of constants enclosed in parenthesis 
in the form (a, b), where a and b are signed or unsigned real constants. The complex constant 
(a, b) is interpreted as meaning a+bi, where i Is equal to the square root of -1. A complex con- 
stant is contained in four computer words. 

Examples (Valid) 

COMPLEX REL 
:ASSE 

INT DATA (1.34,52.01) typed integer 

REL DATA (98344. ,0. 34E+02) typed complex 

*THE FOLLOWING EXAMPLE CONSISTS OF 12 WORDS UNLABELED 
DATA (1. 0,2. 0),(-l. 0,-1000. ),(3E7,4E-6) 

:END 
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Neither part of a complex constant may exceed the value limits established for real 
data. 

6-4.4.7 Hollerith 

A Hollerith constant takes the form: 

nHs or 's' or "s" 

where : 

s is a Hollerith string. Note that blanks are significant in Hollerith strings. 

n is an unsigned integer specifying the number of characters in the string. The maximum 
number of characters per statement is 55. 

The data are packed as three 8 -bit ASCII characters per word, left justified and blank 
filled. Each DATA Hollerith string begins with a new word. See Section 2-3, Literal Constants 
for a more complete description. 

6-4.4,8 Truncated Text 

Truncated text may be used as a data constant. Truncated text is packed 4 characters 
per word, left --justified, blank filled. A truncated text constant may generate one or more 
words depending on the text string length. The format of a truncated text constant is: 

T "string" 

Exam ples (Valid) 

DATA T "A " 

DATA T"THIS IS A LONG TEXT STRING" 

6-4.4. 9 Binary 

A binary data constant is designated by one or more bit specifications of the form: Bn, 
where "n" is the unitary bit position (0 thru 23) that is to be set on. 

Examples (Valid) 



DATA BO 

DATA B0B1B2, B23B22B21 



6-4.5 DAC 



The DAC pseudo -operation is considered as a 16-bit memory reference instruction, 
however, any indirect or index specifications are placed in bit positions 21 through 23 to conform 
to the indireci- memory reference format as defined in the Series 6000 Computer System Reference 
Manual. 



6-14 



Rev'sion B 
January, 1976 



Examples (Valid) 



INT 


DAC 


$10 fhe address of sti 


REL 


DAC 


TABLE,! 




DAC 


* the address of th 
ARRAY(1,2,3) 




DAC 


$ANGLE external address 



6-4.6 BAC 

Refer to the Macro Assembler General Specification AA61649 Section 4-25, Pseudo- 
Operations BAC. 

6-4.7 *** 

This pseudo -operation reserves one word of storage, which is set to zero. 

6-4.8 ZZZ 

The pseudo-operation is considered as a 15-bit memory reference instruction conl^aining 
an operation code of '00, which may be appended with indirect and index references. 



Examples (Valid) 
ZZZ 



TABLE 
TABLE+5,1 



ZZZ* 

6-4.9 Octal Operation Code 

An octal operation code is indicated by using an apostrophe ( ' ) as the first character of 
the opcode and following it by a two-digit octal constant. An octal operation code is processed 
as 15-bit memory reference instruction and must include an operand. The operation code may 
be appended with indirect or indexed references. 



Examples (Valid) 

'24 

"24* 

Examples (Invalid) 

"38 

'4 

'123 



ALPHA+10 
BETA,I 



ALPHA 

BETA 

BETA+1 



8 is not an octal digit 
operation Is not two digits 
operation is more than two digits 



6-4. 10 REEN (VULCAN compiler only) 



The REEN pseudo -operation is used if in-line code is used, but the re-entrancy of the 
FORTRAN program has not been violated. A REEN load code is normally output by the compiler 
if no in-line code is present, or if a REEN pseudo-op is encountered someplace within "in-line" 
code. For a further discussion of "REEN", see the MACRO Assembler General Specification 
AA61649. 
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6-4. 1 1 PORG (VULCAN compiler only) 

The PORG pseudo -operation is used to switch the location counter mode to the PORG 
or data area mode. This mode is used for instructions or data which may be modified by the pro- 
gram during execution. The format of the pseudo-op is the same as for the RORG pseudo-op. To 
return to the instruction location counter mode, the RORG pseudo-op is used. For a further 
discussion of "PORT", see the MACRO Assembler General Specification. 

6-4. 12 PDATA (VULCAN compiler only) 

The PDATA pseudo -operation is used to temporarily switch the location counter mode to 
the PORG mode. If the current location mode is already PORG, then this pseudo-op is identical 
to the DATA pseudo -operation. Otherwise, the PDATA pseudo-op is equivalent to the following 
sequence of operations: 

PORT 
DATA 
RORG 

6-4. 13 PBLOK (VULCAN compiler only) 

The PBLOK pseudo -operation is used to temporarily switch the location counter mode to 
the PORG mode. If the current location mode is already PORG, then this pseudo-op is identical 
to the BLOK pseudo -operation. Otherwise, the PBLOK pseudo-op is equivalent to the following 
sequence of operations: 

PORG 
BLOK 
RORG 

6-4. 14 RDAT 

The RDAT pseudo -operation is used to generate a string of data constants a specified 
number of times. The format of this pseudo-op is: 

RDAT X (C^,C2,C3...C^) 

where X is a positive integer constant indicating how many times the following constant 
list is to be repeated. Each C| is a constant which may be of any form that is allowed with the 
DATA pseudo -operation. 

Examples (Valid) 

RDAT 5(0) 

RDAT 10(.TRUE.,'A',B0B5) 

6-4. 15 PRDAT (VULCAN compiler only) 

The PRDAT pseudo-operation is used to temporarily switch the location counter mode to 
the PORG mode. If the current location mode Is already PORG, then this pseudo-op is identical 
to the RDAT pseudo -operation. Otherv/ise, the PRDAT pseudo-op is equivalent to the following 
sequence of operations. 
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PORG 

RDAT 

RORG * 

6-5 COMPILE-TIME AND RUN-TIME OPTIONS 

6-5. 1 Scope 

This section describes the in-line facility for listing control, messages and diagnostics. 
6-5. 2 List Control 

See Section III, FORTRAN Diagnostic Messages - Compile-Time and Run-Time Options. 

Exception to option B5 set. 

At compile time, the code generated by the in-line extension is output to the list out 
device along with the in-line statements. 

The in-line generated output format is: 

AAAAA B cccccccc 

where AAAAA is the relative address of the generated operation or pseudo-operation code, 
B is the link loader code (refer to Link Loader documentation), and cccccccc is the link loader 
load word. 

6-5.3 Compile-Time Options 

See Section III, FORTRAN Diagnostic Messages - Compile-Time and Run-Time Options. 

NOTE 

External requests are not converted to the double 
precision mode when OPTION B4 is set. However, 
DATA constants are converted to the double pre- 
cision format. 

Examples 

BLL $SIN not converted to DSIN 

BLL COS new scalar name COS 

DATA 3.60E0 converted to double type 

6-5.4 Run-Time Options 

Reference the desired operating system. 

6-5. 5 Error Codes and Messages 

All diagnostics associated with the rules ot in-line coding produce warning messages. 
Even though the message may begin with the word "ERROR" an abort code is not issued to the 
loader. The stringing of the load address of undefined identifiers is maintained where possible 
by the use of a relative no operation Instruction and the undefined identifier as the operanc. 
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The following supplemental diagnostics apply to specific in-line code violations. Other 
diagnostics may appear within a set of in-line coding due to system violations or being superseded 
by a FORTRAN IV violation. 



Error 
Number 



1 



10 



n 



12 



13 



Message 



INVALID OPERATOR 



INVALID CONSTANT 



INVALID SYNTAX 



MISSING OPERAND 



INVALID STATE- 
MENT NUMBER 

SUBSCRIPT USAGE 



INVALID STATEMENT 



PARENTHESIS 



MIXED MODES 



Cause 



a) Invalid computer instruction mnemonic or pseudo- 
operation code. 

b) Octal operation code has incorrect number of 
digits, should be two. 

c) Indirecting or Indexing a literal constant. 



An arithmetic address adjustment is not an integer. 



a) Invalid mode of operation expression. 

b) Incorrect number of operand fields. 

c) Identifier construction error. 

d) Literal constant as a variable. 

e) Negative resultant operand. 

f ) No operand or indirecting or indexing expected. 

g) Magnitude of Operand to large, 
h) Text as relative expression. 

i ) Text construction error. 



a) Operand missing or not beginning in column 15. 

b) Index not I, J, or K. 



a) Duplicate statement numbers. 

b) Multiply defined identifiers. 



a) Incorrect number of subscripts. 

b) Not positive integer constants. 



Incorrect ordering of ":" control statements. 



a) Literal constant not complex. 

b) Incorrect subscript construction. 

c) Data constant not complex. 



a) Address adjusted undefined identifier. 

b) Address adjusted external request. 

c) Multiple undefined identifiers in an expression. 
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Error 
Number 


Message 


Cause 


14 


INVALID DELIMITER 


a) Consecutive delimiter. 

b) Undefined identifier, literal constant, external, 
text, or undefined statement number not followed 
by a blank or comma. 

c) Embedded blank in an operand expression. 

d) Operand exceeded column 72 and incomplete at 
column 72. 

e) Dummy array subscripted. 

f ) Missing comma in two operand expression. 


17 


INVALID ITEM USAGE 


a) An identifier is used where a constant is expected. 

b) FORTRAN EXTERNAL identifier as a variable. 

c) Byte external second operand greater than two. 


30 


STATEMENT ORDER 


FORTRAN specification statement Following an 
in-line statement. 


31 


NO PATH TO HERE 


No label or statement number following (not 
necessarily immediately) a FORTRAN logical path 
for execution. Reference this document Miscellan- 
eous - Path diagnostic. 



6-5.6 Run-Time Diagnostics 

Reference the desired operating system. 
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MISCELLANEOUS 



6-6. 1 Scope 

Thii; section describes several items which are unique to the operation of the in-line 
coding. 

6-6.2 DO Termination 

FORTRAN DO statements may terminate within an In-line section. However, extra code 
Is generated after the processing of the in-line statement. If the In-line statement is a pseudo- 
operation instruction such as a BLOK, fhen the user must provide for a logical path of execution. 
Neither the contents of the condition register nor the A Register are preserved. 

Example (Valid) 

DO 1 1=1,10 
:ASSE 

TMI I T '■o Index I 

1 AME IARAY(1)-1,I sum contents of lARAY to E 

TEM lANSWR answer 

:END 
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Example (with caution) 

DO 2 I=1J0,2 

:ASSE 

TMK I I to index K 

AMD RATE(50)-2,K sum five values of rate (X) 

*NOTE USE OF A REGISTER 

*NOTE DISCONTINUOUS INSTRUCTIONS IN MEMORY 

2 BLOK 20 skip 20 memory locations 

*THE USER MUST PROVIDE FOR A LOGICAL PATH 

*AROUND THE BLOK 20 TO THE DO LOGIC. 

6-6. 3 Automatic Symbol Assignment 

Any symbolic label encountered within the operand expression is declared as having been 
properly used by the user and is assigned storage according to its FORTRAN type. These labels 
do not appear in the memory map as undefined variables. 

Example (Valid) 

:ASSE 

*DEFINE AND USE TEMPORARY STORAGE 

TDM T$SAVE unique to in-line 

not necessary to 
allocate by data or 
any other method. 
TMD T$SAVE 

:END 

Example (Invalid) 

:ASSE 

*DEFINE AND USE INCORRECTLY 

TDM T$SAVE correct 



TMB T$SAVE+1 undefined address adjusted 

*THE ABOVE STATEMENT IS IN ERROR "DELIMITER" 
:END 

6-6.4 Second Operand Field 

The second operand field must be either an index (I, J, or K) or a positive integer. 
Reference the individual instruction for the specific format. 

6-6.5 Forward Reference Symbols 

Symbolic labels which have not been assigned a memory location are termed as forward 
reference symbols. Statements which assign memory locations are the DIMENSION,COMMON, 
EQUIVALENCE, DATA, FUNCTION dummies, and SUBROUTINE dummies. Statement labels 
which define a memory location are statement numbers in columns 1-5 of both FORTRAN and 
in-line and symbolic labels in columns 1 -6 of an in-line statement. Since the relative address 
of a forward referenced label is not known at compile time the label may not have address 
arithmetic. 
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Example 





DATA A/1.0/ 




10 


B = C 






:ASSE 










TMD 


A 


valid 




TMB 


A+1 


valid 




TMD 


B 


valid 




TMB 


B+1 


invalid 




BUG 


$104-2 


valid 




BUG 


$11+3 


invalid 



:END 



STOP 
END$ 



6-6.6 Path Diagnostic 

The FORTRAN diagnostic message "NOTE 31 xxxxxx NO PATH TO HERE" is issued after 
the first FORTRAN statement following a set of in-line code which contains no statement labels 
and are not in the logical path for execution by the previous FORTRAN statement. 



Example 


(Valid) 






GO TO 10 


:ASSE 








TMA 


I 




TNK 


5 


11 


TAM 


J(6),K 




BWK 


*-l 


:£ND 






Example 


(Invalid) 






GO TO 10 


:ASSE 








TMD 


D 




TDM 


E 



statement label may 
appear anywhere within 
an in-line set of code 



:END 



this section of code 

is not in a FORTRAN logical 

path for execution 



6-6.7 Statement Function Dummies 

Statement subprogram dummies are self contained and are therefore not addressable as 
dummy variables. 



6-20 



RevLion C 
June, 1976 



SECTION VII 
HARRIS STRUCTURED - FORTRAN LANGUAGE 



7-1 GENERAL 

The Harris Structured - FORTRAN language is a superset of the Harris FORTRAN 
language. It adds structured programming capabilities to FORTRAN language. 

7-2 STRUCTURED PROGRAMS 

7-2. 1 Scope 

This section describes various terms used in this chapter in describing the structure 
and execution of structured programs. 

7-2.2 Structured - FORTRAN Compiler 

The Structured - FORTRAN Compiler processes the Harris Structured - FORTRAN 
language. This structured programming extension can be incorporated in any Harris FORTRAN 
compiler by setting the FLAG 6 "on" during the assembly of the compiler. 

7-2.3 Block-Statements, Boundary-Statements and Exit-Statements 

The Harris Structured - FORTRAN language provides additional statements foricon- 
structing blocks of a structured program with minimum or no use of the GOTO statements and 
statement numbers. These additional statements are called block-statements. Block statements 
are classified into five groups: 

1. Block-IF, WHILE, block-DO, FOR, and LOOP statements. 

2. END IF, END WHILE, UNTIL, END FOR, and END LOOP statements. 
*3. OR IF and ELSE statements, 

4. EXIT IF, EXIT WHILE, EXIT DO, EXIT FOR, and EXIT LOOP statements. 



**, 



**5. EXIT IF IF, EXIT WHILE IF, EXIT DO IF, EXIT FOR IF, and EXIT LOOP IF 
statements. 

Block-statements of groups 1 through 3 are called boundary -sta temen ts . Block -statements 
of groups 4 and 5 are called exit-statements. 

* The keyword ELSE IF may be used in place of the keyword OR IF. 

** The keyword ESCAPE maybe used in place of the keyword EXIT. 
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A program unit may contain any number of block-statements, intermixed with other 
FORTRAN statements, satisfying the structural and nesting restrictions. Like any other FORTRAN 
statement, a block-statement may be assigned a statement label. All block-statements are 
executable statements. During execution of a program, control may be transferred to any block- 
statement. 

7-2.4 Blocks of a Program Unit 

A program unit may be viewed as consisting of one or more blocks of statements, placed 
one after another and/or one within another. Blocks are one of two general classes: 

1. A FORTRAN -block or F-block consists of one or more statements, none of which 
is a block-statement. 

2. A Structure I -block or S-block consists of two or more boundary -statements enclosing 
other statements. 

7-2.5 Rarige{s) of a S-block 

A range of a S-block consists of the executable statements following a boundary-statement 
of the S-blo~:k up to but not including, the next boundary-statement of the same S-block. 

A S-block having N boundary -statements has (N-1) ranges. If a S-block S] appears 
within a range R of another S-block $21 fhe entire S-block S^ must be within the range R of the 
outer S-block S^. A range of a S-block may be empty. A S-block may contain any number of 
S-blocks within its range(s). 

7-2.6 IniHa I -Statements 

The first statement of a S-block is always a boundary-statement. A boundary-statement 
which is valid as the first statement of a S-block Is called an initial -statement. An initial- 
statement opens a S-block and identifies the block-type of the S-block opened by it. The 
Structured~TDRTRAN language permits five ditterent initio I -statements and correspondingly 
there are five block-types available. Boundary-statements of group 1 described earlier in this 
section, represent the available initial -statements. 

7-2.7 Terminal -Statements 

The last statement of a S-block Is always a boundary-statement. A Boundary-statement 
which is valid as the last statement of a S-block is called a terminal -statemen t. A terminal- 
statement closes a S-block. Assoclatcjd with each block-type there is a ditterent terminal - 
statement. ~A terminal -statement may be used to close a S-block of associated block-type only. 
Boundary-statements of group 2 described earlier in this section represent the available terminal- 
statements. 

7-2. 8 Alternative-Initial-Statements 

A boundary-statement which is neither an initial -statement nor a terminal -statement is 
called an alternative-initial -statement. Associated with each block-type there are zero or more 
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alternative-initial statements. An alternative-initial-statement may be used as a boundary- 
statement for a S-block of associated block-type only. A S-block may have any number of 
associated alternative-initial-statements as its intermediate boundary -statements. Boundary- 
statements of group 3 described earlier in this section represent the available alternative-initial 



statements. 



7-2.9 Exit-Statements 




S-block. 

ina I -statement 

to be exited. Associated with each block-type there are two exit-statements: 

1. An unconditional -exit-statement, which provides unconditional exit from the 
S-bTocT<^ Block-statement ot group 4 described earlier in this section represent 
available unconditional -exit-statements. 

2. A condition -exit-statement , which specifies a condition for exit. Block- 
statements ot group 5 described earlier in this section represent one available 
condi tiona I -exi t -statements. 

An exit -statement, unconditional or conditional, must be within a range of a S-block 
of specified block type. A S-block may contain any number of associated exit-statemepts. 
When an exit-statement occurs in a range of more than one S-block, only the innermost S-block 
of specified block-type is exited. 

7-2.10 S -B I ocks ond Associated Block Statements 

Table 7-1 lists available block-types with associated block-statements. 
Table 7-1. S-Blocks and Associated Block-Statem<5nt5 









Alternative- 






Initial- 


Terminal 


Initial - 


Exit 


Block-type 


Statement 


Statement 


Statements 


Statement 


IF 


Block-IF 


END IF 


OR IF, ELSE 


EXIT IF 
EXIT IF IF 


WHILE 


WHILE 


END WHILE 


None 


EXIT WHILE 
EXIT WHILE IF 


DO-UNTIL 


Block-DO 


UNTIL 


None 


EXIT DO 
EXIT DO IF 


FOR 


FOR 


END FOR 


None 


EXIT FOR 
EXIT FOR IF 


LOOP 


LOOP 


END LOOP 


None 


EXIT LOOP 
EXIT LOOP IF 
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Two or more S-blocks may not use the same statement as their boundary -statement. 
This is an important difference between S-blocks and FORTRAN DO-loops, where nested DO- 
loops may use the same terminal -statement. 

Table 7-2 illustrates various terms defined in this section. It shows a portion of a 
structured program consisting of two nested S-blocb: a FOR-block enclosing an IP-block. The 
type and block-level of each statement in the program is indicated on the right of the statement 

The IP-block constitutes the range of the FOR-block. The IP-block has two ranges. 
The first range consists of the CALL SUBUDONE) statement and the conditional -exit-statement. 
The second range consists of the CALL SUB2 statement and the unconditional -exit-statement. 
Note that each of the exit -statements specifies a FOR-block for exit and is in the range of the 
FOR-block. 

Table 7-2. A Structured Program 



Program 


Statement-Type 


Block -Level 


DIMENSION IDATA(IO) 


FORTRAN -Statement 





LOGICAL DONE 


FORTRAN -Statement 

• 




• 


• 

FOR I-l, 10 


Initial -Statement 


1 


IF(IDATA{I).GT.O) 


Initital -Statement 


2 


CALL SUB 1 (DONE) 


FORTRAN -Statement 


2 


EXIT FIR IF (DONE) 


Conditional -Exit-Statement 


2 


ELSE 


A Iternati ve -Ini ti a 1 -Statement 


2 


CALL SUB2 


FORTRAN-Statemenf 


2 


EXIT FOR 


Unconditional -Exit-Statement 


2 


END IF 


Term i na 1 -Statement 


2 


END FOR 


Terminal -Statement 


1 
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7-2.11 Block-Level 

The block-level of a statement S is defined as the difference between the number of 
initial -statements trom the beginning of the program unit up to and including S, and the number 
of terminal -statements in the program unit preceding S. 



observed 



For a correctly structured and nested program unit, the following restrictions must be 

1. The block-level of every statement must be non-negative. 

2. The block-level of the END statement must be zero. 

3. The block-level of each block-statement must be positive. 

4. A block-statement must not be used as the terminal -statement of a FORTRAN 
DO-loop or as the object of a FORTRAN logical IF statement. 

5. An alternative-initital-statement Si and the nearest preceding boundary-^ 
statement $2^ having the same block-level as S] must be valid boundary- 
statements for the same block-type. The stdtements, if any enclosed between 
S^ and $2 constitute a range of the S -block. 

6. An exit -statement must be within a range of a S-block of specified block-type. 

7. The block-level of a FORTRAN DO statement and its terminal -statement must 
be the same. 

It must be clear from the definitions of S-block and block-level, that all boundary- 
statements of a S-block must have the same block-level. 
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BOUNDARY-STATEMENTS 



7-3. 1 Scope 

This section describes the form and execution of boundary -statements associated with 
block-types available in the Structured-FORTRAN Compiler. 

7-3.2 IF-Block 

An IF -block has the general structure: 

BLOCK-IF Statement (Initial-Statement) 

(First-range of the IF-block) 
OR IF Statement (Alternative-initial-statement) 

(Alternative-range of the IF-block) 
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ELSE Statement 



END IF Statement 



(Alternati ve-initia I -statement) 
(Last -range of the IF-hlock) 
(Termi na I -statement) 



The IF -block provides means for executing one range out of its one or more ranges. 
The range to be executed is selected by making alternative tests in the specified order. The 
OR IF and ELSE statements are optional in an IF-block. 

7-3. 2. 1 Block-IF Statement 

The block-IF statement has the form: 

IF(e) 

or 

IF (e) THEN 

where e is a logical expression. 

Exejcution of a block-IF statement causes evaluation of the logical expression e. If the 
value of e is true, normal execution sequence continues and the execution of the first range of 
the IF-block begins. If the value of e is false, control is transferred to the next OR IF, ELSE, 
or END IF statement that has the same block-level; that is, control is transferred to next boundary- 
statement of the IF-block. 

Examples; 

IF (MORE) THEN 

IF (T. LT.TMAX) 

IF (I. AND. J .NE.O) THEN 

7-3. 2. 2 OR IF Statement 

The OR IF statement has the form: 

OR IF (e) 

or 

OR IF (e) THEN 

where e is a logical expression. 

Execution of an OR IF statement causes evaluation of the logical expression e. If the 
value of e is true, normal execution sequence continues and execution of the following alterna- 
tive range of the IF-block begins. If the value of e is false, control is transferred to the next 
OR IF, ELSE, or END IF statement that has the same block-level. That Is, control is transferred 
to the next boundary -statement of the IF-block. 
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Examples: 

OR IF (I. EQ. 2) 

ELSE IF (T.GT.TMAX)THEN 

OR IF (NEXT) 

7-3.2.3 ELSE Statement 

ELSE 

Execution of an ELSE statement has no effect. Normal execution sequence continues 
and the execution of the last range of the IF -block begins. 

7-3. 2.4 Termination of Execution of a Range of an IF-block 

If execution of the last statement of a range of an IF-block does not result in a transfer 
of control, control is transferred to next END IF statement having the same block-level as the 
first statement following the range. That is, control is transferred to the terminal -statement of 
the IF-block, 



7-3. 2.5 END IF Statement 

The END IF statement has the form: 

END IF 

Executions of an END IF statement does not have any effect. Normal execution 
sequence continues. 

7-3. 2. 6 Order of OR IF and ELSE Statements 

An IF-block may contain any number of OR IF statements and/or only one ELSE state- 
ment having the same block-level as the initial-statement of the IF-block. After an ELSE 
statement, an END IF statement having the same block-level must appear before the appearance 
of next OR IF statement having the same block level. 



IF-block Example: 

Structure-FORTRAN 

IFdCOM.EQ. 'ADD.) THEN 

OPT =OPl+OP2 
OR IF (ICOM. EQ. 'SUB') 

OPl = OP1-OP2 
ELSE 

CALL ERROR 
END IF 



FORTRAN 

IF(ICOM. NE. 'ADD') G0T02 

OP1=OPl+OP2 
GO TO 4 

IF (ICOM. NE. 'SUB') GO TO 3 
OPl =OPl-OP2 
GO TO 4 
CALL ERROR 
CONTINUE 
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In the above example, statements on the left illustrate a use of the IF -block and state- 
ments on the right represent its equivalent in the standard FORTRAN. The exomple computes the 
sum ('ADD' command) or difference ('SUB' command) of two operands OPl and OP2. If the com- 
mand ICOM is neither an 'ADD' command nor a 'SUB' command, an error condition is detected 
and the subroutine ERROR is called. 

7-3.3 WHILE -BLOCK 

The WHILE-block has the general structure: 

WHILE Statement (Initio I -Statement) 

! (Range of the WHILE-block) 

END WHILE Statement (Terminal -Statement) 

The WHILE-block provides means for executing its range repetitively as long as (While) 
the specified condition is true. The test for the condition is made before each execution of the 
WHILE-block range. Thus, it is possible that the range of a WHILE-block may not be executed 
at all. 

7-3.3.1 WHILE Statement 

The WHILE statement has the form: 

WHILE (e) 

where e is a logical expression. 

Execution of a WHILE statement causes evaluation of the logical expression e. If the 
value of e is true, normal execution sequence continues and execution of the range of the WHILE- 
block begins. If the value of e is false, control is transferred to the statement immediately 
following the END WHILE statement hoving the same block-level as the WHILE statement. That 
is, control is transferred to the statement following the WHILE-block. 

Examples: 

WHILE (ICOUNT.NE.O) 
WHILE (.NOT. EOF) 
WHILE (T.LE.TMAX) 

7-3.3.2 END WHILE Statement 

The END WHILE statement has the form: 
END WHILE 
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Execution of an END WHILE statement results in the transfer of control to the nearest 
preceding WHILE statement that has the same block-level. That is, control is transferred to the 
initial -statement of the WHILE-block 



WHILE-block Example ; 

Structured-FORTRAN 
DIMENSION A(100),LINK(100) 



FORTRAN 
DIMENSION A(100),LINK (100) 



SUM = 0. 

NEXT = LSTART 

WHILE(NEXT.GT.O) 
SUM=SUM+A(NEXT) 
NEXT=LINK(NEXT) 

END WHILE 



SUM = 0. 

NEXT = LSTART 

IF(NEXT.LE.O) GO TO 2 

SUM=SUM+A(NEXT) 

NEXT=LINK(NEXT) 

GOTO 1 

CONTINUE 



In above example, statements on the left illustrate a use of the WHILE-block and state- 
ments on the right represent its equivalent in the standard FORTRAN. The example computes the 
SUM of elements of a linked-list A. Array LINK is used to store the link to the next element in 
the linked-list. A zero or negative value for the link indicates the end of the linked-list. Note 
that a test for the end of the linked-list is made before each iteration of the WHILE-block. 

7-3.4 DO-UNTIL-BLOCK 



The DO-UNTIL-block has the structure: 
Block-DO Statement 



UNTIL Statement 



(Initio I -statement) 

(Range of the DO-UNTIL-block) 

(Terminal -Statement) 



The DO-UNTIL-block provides means for executing its range repetitively until the 
specified condition is true. The test for the condition is made after each execution of the DO- 
UNTIL-block range. Thus, the range of a DO-UNTIL-block will always be executed at least 
once. 

7-3.4.1 Block-DO Statement 

The Block-Do statement has the form: 

DO 

Execution of a block-DO statement does not have any effect. Normal execution 
sequence continues and execution of the range of the DO-UNTIL-block begins. 
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7-3.4.2 UNTIL Statement 

The UNTIL statement has the form: 

UNTIL (e) 

where e is a logical expression,, 

Execution of an UNTIL statement causes evaluation of the logical expression e. If the 
value of e is true, normal execution sequence continues and the DO-UNTIL-block is exited. If 
the value of e is false, control is transferred to the nearest preceding block-DO statement that 
has the same block-level. That is control is transferred to the initio I -statement of the DO- 
UNTIL-block. 

Examples: 

UNTIL (ICOUNT. EG. 0) 

UNTIL (EOF) 

UNTIL (T.GT.TMAS) 

DO-UNTIL-block Example: 



S tructured-FORTRAN 
DATAIBLANK/3H / 



FORTRAN 
DATA IBLANK/3H / 



DO 

CALL GETCHR (ICHAR) 
UNTIL(CHAR. NE. IBLANK) 



CALL GETCHR(ICHAR) 

IF (ICHAR. EQ. IBLANK) GO TO 1 



In the above example, statements on the left illustrate a use of the DC)-UNTIL-block 
and statements on right represent its equivalent in the standard FORTRAN. The example skips 
over leading blanks and gets the next non -blank character from an input buffer. During each 
iteration of the DO-UNTIL-block, the next character from the buffer is obtained in ICHAR by 
calling the subroutine GETCHR. Next, ICHAR is checked for a blank. If ICHAR is a blank, the 
DO-UNTIL block is executed one more time, i. e. , the blank is ignored. If ICHAR is not a blank, 
the DO-UNTIL-block is exited, i.e., execution continues with the statement following the 
UNTIL statemejnt. 
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7-3.5 FOR-Block 

The FOR -block has the structure : 
FOR Statement 



(Initial Statement) 



(Range of the FOR -block) 

END FOR Statement (Terminal Statement) 

The FOR -block is functionally equivalent to the FORTRAN DO-loop. 
7-3.5. 1 FOR Statement 

The FOR Statement has the form: 

FOR v-ii,i2,i3 

or 

FOR v=ii,i2 

where v is a scalar variable of integer type, i^, i2 and io are scalar variable or con- 
stants of integer type. Integers i] and i2 must appear. If io is not present, it is assumed to have 
the value 1. 

The FOR statement is similar to the DO-statement of a DO-loop. The DO statement 
specifies a statement label to identify the terminal statement of the DO-foop; however, the FOR 
statement does not specify any statement label. The terminal -statement of a FOR -block is 
always the next END FOR statement that has the same block-level. 

Execution of a FOR statement activates the FOR -block and defines the FOR -variable 
V With the value of the initial parameter i]. Next, loop-control processing begins. 

Examples: 
FOR I=], 10 
FOR IVAR = I, J, K 
FOR J = I, K, -1 

7-3.5.2 LOOP-Control Processing of a FOR-block 

Loop-control processing determines if further execution of the range of the FOR-block 
IS required. If the incremental value i3 is an integer scalar variable or positive integer constant, 
the variable v is compared to the terminal value 12- If v is less than or equal to i2, normal execu- 
tion sequence continues and execution of the range of the FOR4Dlock begins. If v is greater than 
'^ 'L^n'' . .'^ transferred to the statement following the terminal -statement of the FOR-block and 
the FOR-block becomes inactive. 
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If the incremental value i3 is a negative constant, the variable v is compared with the 
terminal value i2. If v is greater than or equal to i2/ normal execution sequence continues. If 
V is less than \2f control is transferred to the statement following the terminal -statement of the 
FOR -block and the FOR -block becomes inactive. 

7-3.5.3 END FOR Statement 

The END FOR statement has the form 
END FOR 

Execution of an END FOR statement results in incrementing the value of y by the value 
of incremental value i3. Next, execution continues with the loop-control processing of the 
FOR -block. 

The value of the variable v may not be modified within the range of the FOR -block. 

7-3.5.4 Transfer Into the Range of a FOR -block 

The control may be transferred into the range of or to the terminal statement of an 
active FOR -block only. 



FO R -block example : 

S tructures -FORTRAN 
DIMENSION A(10, 10) 



FOR 1-1,9 
11=1+1 

FOR J=I1, 10 
TEMP = A(I,J) 
A(I,J) = A(J,I) 
A(J,I)-TEMP 
END FOR 
END FOR 



FORTRAN 
DIMENSION A(10,10) 



DO 1 1=1,9 

II = I+l 

DO 1 J=I1, 10 

TEMP = A(I,J) 

A (I,J) = A(J,I) 

A(J,I) = TEMP 

CONTINUE 



In above example, statements on the left illustrate a use of the FOR -block and state- 
ments on the right represent its equivalent in the standard FORTRAN. The example computes 
the transpose of a 10X10 by matrix A. Note that two separate END FOR statements are required 
to close two FOR -blocks: the first END FOR statement closes the inner FOR-block with J as its 
loop-variable and the second END FOR statement closes the outer FOR-block with I as its loop- 
variable. 
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7-3.6 LOOP-BLOCK 

The LOOP-block has the structure: 

LOOP Statement (Initial -Statement) 

(Range of the LOOP-block) 

END LOOP Statement (Terminal -Statement) 

There are two types of LOOP-blocks: 

1. A Finite-LOOP-block specifies the number of times its range is to be executed. 

2. An Infinite -LOOP-block does not specify the number of times its range is to be 
executed. The range of an infinite LOOP-block is repetitively executed until 
the LOOP-block is exited. 

7-3. 6. 1 LOOP Statement 

The LOOP statement has the form: 

LOOP (i) 

or 

LOOP 

where i is a scalar variable or constant of integer type. It is called the iteration count 
specification. 

The first form of the LOOP statement identifies a Finite-LOOP-block; the second form 
identifies an Infinite-LOOP-block. 

Execution of the LOOP statement of a Finite-LOOP-block initializes the iteration 
count for the LOOP-block to the value of the iteration count specification. Next, loop-control 
or processing begins. 

Execution of the LOOP statement of Infinite-LOOP-block does not have any effect. 
Normal execution sequence continues and execution of the range of the LOOP-block begins. 

Examples: 

LOOP 

LOOP (100) 

LOOP (I) 
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7-3.6,2 Loop-Control Processing of a Finite-LOOP-block 

Loop-Control processing determines if further execution of the range of the Finite- 
LOOP-block is required. The iteration count is tested. If the iteration count is positive, 
execution of the statement immediately following the LOOP statement begins. If the iteration 
count is not fXDsitive, the LOOP-block becomes inactive and control is transferred to the state- 
ment immediately following the next END LOOP statement that has the same block-level. That 
is, control is transferred to the statement following the Finite-LOOP-block. 

7-3.6.3 END LOOP Statement 

The END LOOP statement has the form: 

END LOOP 

Execution of an END LOOP statement of a Finite-LOOP-block results in the decrement- 
ing of its iteration count by one. Next, execution continues with the transfer of control to the 
loop-control processing of the same loop-block. 

Execution of an END LOOP statement of an Infinite-LOOP-block resiults in the transfer 
of control to the statement immediately following the nearest preceding LOOP statement. That 
is, control is transferred to the initio I -statement of the Infinite-LOOP-block. 

7-3.6.4 Iteration Count Specification of a Finite-LOOP-block 

The iteration count specification i of a Finite-LOOP-block Is used to establish the 
iteration count of the LOOP-block. If i is an integer scalar variable, a change in its value 
does not affect the remaining iteration count of the associated active Finite-LOOP-block. 
Similarly, the decrementing of the iteration count during execution of the END LOOP statement 
does not affect the value of the associated i. 

7-3. 6. 5 Transfer into the Range of a LOOP-block 

Control may be transferred into the range of or to the terminal statement of an active 
Finite-LOOP-block only. There are no restrictions on the transfer of control to any executable 
statement in an Infinite-LOOP-block. 



Finite-LOOP-block Example; 
S tructured-FORTRAN 

NONES =0 

LOOP (24) 

LSBIT= IVAL.AND. 1 
NONES = NONES+LSBIT 
IVAL- IVAL SHIFT. -1 

END LOOP 



FORTRAN 

NONES =0 

DO 1 1=1,24 

LSBIT -IVAL.AND. 1 

NONES = NONES+LSBIT 

IVAL = IVAL. SHIFT. -1 

CONTINUE 
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In above example, sf-at-ements on the left illustrate a use of the Finite-LOOP-block 
and statements on the right represent its equivalent in the Harris standard FORTRAN. The 
example computes the number of 1 's in the binary representation of a number IVAL. The LOOP- 
block is iterated 24 (the word-length in a series 6000 machine) times. During each iteration of 
the LOOP-block, the following sequence takes place: 

1. The Is count NONES is incremented by an amount equal to the least significant 
bit (0 or 1) of the current representation of IVAL. 

2. The number IVAL is shifted to the right by one bit position. 

7-4 EXIT STATEMENTS 

7-4. 1 Scope 

This section describes the form and execution of exit-statements. 

7-4.2 Unconditional-exit-Statements 

An unconditional-exit-statement has the form: 

EXIT type 

where type is one of five block types: 

IF, WHILE, DO, FOR, or LOOP. 

Execution of an unconditional -exit-statement results in the transfer of control to the 
statement following the next terminal -statement of specified block-type. That is, the innermost 
S-block of specified block -type enclosing the unconditional -exit-statement is unconditionally 
exited. 

A S-block may contain any number of associated unconditional -exit -statements. Each 
unconditional -exit-statement must be in a range of a S-block of specified block-type. 

Examples: 

EXIT IF 

EXIT FOR 

EXIT DO 

7-4.3 Conditional -exit-Statement 

The conditional -exit-statement has the form: 

EXIT type IF (e) 

where: type is one of five block types: IF, WHILE, DO, FOR, or LOOP, e is a 
logical expression. 
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Execution of a conditional -exit-statement causes evaluation of the logical expression 
e. If the value of e is true, control is transferred to the statement following the next terminal- 
statement of specified block-type. That is, the Innermost S-block of specified block-type is 
conditionally exited. If the value of e is false, normal execution sequence continues. 

An S-block may contain any number of associated conditional -exit-statements. Each 
conditional -exit -statement must be in a range of a S-block of specified block-type. 

Examples: 

EXIT WHILE IF (I. LE.O) 

EXIT FOR IF (T.GT.TMAX) 

EXIT LOOP IF (DONE) 

Exit-Statement Example: 



S tructured -FORTRAN 

LOOP 

READ,NUM 

EXIT LOOP IF (NUM. LE.O) 
CALL SEARCH(NUM,MODE) 
IF (MODE. LE.O) 

CALL ERROR 

EXIT LOOP 
ELSE 

CALL PROCES 
END IF 
END LOOP 



FORTRAN 

READ, NUM 

IF(NUM. LE.O) GO TO 3 

CALL SEARCH(NUM,MODE) 

IF(MODE.GT.O) GO TO 2 

CALL ERROR 

GOTO 3 

CALL PROCES 

GOTO 1 

CONTINUE 



In above example, statements on the left Illustrate a use of exit -statements and state- 
ments on the right represent its equivalent in the standard FORTRAN. The example contains two 
S-blocks: a LOOP block enclosing an IF-block. The LOOP-block contains two exit-statements 
in its range: a conditional-exit-statement and an unconditional-exit-statement. The uncon^ 
ditional-exit-statement also occurs in a range of the inner IF-block, During each iteration of 
the LOOP-block, a number NUM is read from the input device. A non-positive value for NUM 
signals the end of input data and the LOOP-block is exited. This is achieved using a conditiona 
exit-statement. If NUM is positive, the subroutine SEARCH is called to locate NUM in the 
data-base. The result of the search is returned in MODE. A non-positive value for NUM 
indicates that NUM is absent in the data-base. This causes an error condition and the subroutine 
ERROR is called to process the error. After return from ERROR, the LOOP-block is exited using 
an unconditional -exit-statement. If NUM is present in the data-base, the subroutines PROCES 
is called to process the data base. Next, the LOOP-block is iterated for a new value of NUM. 



I- 
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7-S INDENTED LISTING 

The Structured-FORTRAN Compiler provides a compile-time option to produce Indented 
listing of a structured program. If the INdented listing or B18 (DMS/DOS/TOS/ROS) or "P" 
(VULCAN) option is "on" at compile time, source statements are automatically indented in the 
source listing produced by the compiler. The indentation of a source statement is defined as the 
number of columns by which columns 7-72 of the statement are shifted to the right in the source 
listing. The indentation is determined as follows: 

1. The indentation of a comment line, an in-line control statement, an in-line 
assembly statement, or a skipped statement is zero. 

2. The indentation of a boundary -statement Is proportional to its block-level minus 
1, i.e.. 

Indentation = 3* (block-level -1) 

Columns 73-80 of such a statement are omitted In the indented listing. 

3. The indentation of an exit-statement or a normal FORTRAN statement Is propor- 
tional to Its block-level, I.e.^ 

Indentation = 3* block-level 

Columns 73-80 of such a statement are omitted in the indented listing. 

4. The indentation of a continuation line Is same as the Indentation of Its initial 
line. Columns 73-80 of a continuation line are omitted In the Indented listing. 

If the INdented listing option is "on" at compile time, the following conditions prevail: 

1. The source line sequence number Is placed on the left of the line regardless of 
the value of the SEquence numbers on the left or B21 (DMS/DOS/TOS/ROS) or 
"N" (VULCAN) option. 

2. The continuation character (column 6) of a continuation line is replaced with a 
plus sign (+). 

3. A dot (. ) is placed as an indentation-indicator in every third column, starting 
from the first column, of the Indentation space of an indented llnis. 

4. The maximum Indentation of any source line is limited to 39 columns. A source 
line having greater indentation Is listed with an Indentation of 39 columns. It 
must be noted that, however, there is no upper limit on the nesting depth of 
S-blocks. 

5. Blank statements are processed as normal FORTRAN statements regardless of the 
value of the IGnore blank statements or B16 (DMS/DOS/TOSAOS) or "B" 
(VULCAN) option. 
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6. Commenf lines may not be inserted between an initial line and its first continuation 
line or between two continuation lines. That is, comment lines ere treated as 
statement separators. 

7. If the DEbug statement compilation or B15 (DMS/DOS/TOS/ROS) or "D" (VULCAN) 
option is "off" at compile time, debug statements are treated as; statement separators. 

8. If the OBject listing or B5 (DMS/DOS/TOSAOS) or "O^' (VULCAN) option is 
"on" at compile time, the listing of the code generated for a statement will appear 
before the listing of the statement. 

Listings of a program with the INdented listing option "on" and "off" are shown in 
Figure 7-1. 

7-6 COMPILE-TIME DIAGNOSTICS 

The Structured-FORTRAN compiler performs an extensive error checking of structured 
programs. In addition to normal diagnostic messages issued by the compiler, the following two 
compile-time diagnostic messages apply only to programs using structured programming extensions: 

1. The FORTRAN Diagnostic Message 

ERROR 40 xxxxxx STRUCTURALLY INVALID STATEMENT 

is issued by the compiler whenever a block-statement violates any of the nesting 
restrictions discussed earlier in the section. A structurally invalid statement 
produces a fatal error condition; however, it does not affect the structure of the 
program. 

2. The FORTRAN Diagnostic Message 

ERROR 41 bbbbb: BLOCK OPENED AT LINE nnn IS NOT CLOSED 

is issued by the compiler whenever a S-block is not closed before an END 
statement is encountered for the program unit. In the message: 

bbbbb specifies the type of the S-block, i.e., IF, WHILE, DO, 

FOR, or LOOP, and 

nnn specifies the source line number for the initial-statement of 

the S-block. 

A separate diagnostic message Is Issued for every S-block, starting from the outer- 
most S-block and moving down to the innermost S-block, remaining open at the end. 
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C Ar4 EXAMPLE OF "INDENTED LISTIN 


i: 


C 




a: 


SUBROUTINE MATMUL(A,B,C,M,N,P) 


5: 


INTEGER P 


6: 


DIMENSION A(M,N),B(N,P),C(MrP) 


7: 


FOR I = WM 


8: 




FOR K = WP 


y; 




. SUM=0. 


lo: 




. . FOR J = lVN 


U: 




. SUM=SUM+A(I, J)*b(J,K) 


1^: 




. . END FOR 


13: 




. . C(I,K)=SUM 


la: 




, ENV FUR 


15: 


END FOR 


lb: 


RETURN 


17: 


END 
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MATMUL 
MA f MUL 
MATMUL 



LISTING WITH "INDENTED LISTING" OPTION "ON" 



AN EXAMPLE OF "INDENTED LISTING" OPTION 

SUBROUflNE MATMUL(A,BrC/MrN,P) 

INTEGER P 

DIMENSION A{M,N) ,B(N,P),C(M,P) 

FOR I = UM 

FOR K=1,P 

SUM=0. 

FOR J = WN 

SUM=SUM+A(1, J)*B(J,K) 

END FOR 

C(I,K)=SUM 

END FOR 

END FOR 

RETURN 

END 

LISTING WITH "INDENTED LISTING" OPTION "OFF" 



MATMUL 
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MATMUL 


a 


MATMUL 
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MATMUL 


a 


MATMUL 


b 


MATMUL 


6 


MATMUL 
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MATMUL 


8 


MATMUL 


9 


MATMUL 


10 


MATMUL 


11 


MATMUL 


U 


MATMUL 


13 


MATMUL 


la 


MATMUL 


15 


MATMUL 


lb 


MATMUL 


17 



Figure 7-1. Indented Listing 



7-19 



